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

Previous  Top  Next

    
 

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

 

 

©Drkb::01243

http://delphiworld.narod.ru/

DelphiWorld 6.0