Визуализация нажатия кнопки

Материал из DRKB

Визуализация нажатия кнопки[править | править код]

Я знаю как нажать кнопку через 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;


Source: http://delphiworld.narod.ru/
ID: 01243