Советы по Delphi
Нажатие кнопки
Я знаю как нажать кнопку через keypress, но хотя пользователь определил действие в обработчике события OnClick, сама кнопка не отражает видимых изменений, происходящих при ее нажатии мышью. Кто-нибудь может мне помочь?
Вы можете сделать кнопку "нажатой" или "ненажатой", посылая ей сообщение BM_SETSTATE. Определить ее текущее состояние можно, послав ей сообщение BM_GETSTATE.
Для нажатия кнопки:
| Button1.Perform( BM_SETSTATE, 1, 0 ); |
Для отжатия кнопки:
|
|
Button1.Perform( BM_SETSTATE, 0, 0 ); |
Чтобы обнаружить нажатие кнопки:
| ButtonPressed := Button1.Perform( BM_GETSTATE, 0, 0 ) = 1; |
- Ed Jordan [000996]
