Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Визуализация нажатия кнопки без события OnClick [D7, WinXP]


Alex_s ©   (2004-06-29 08:00:00) 

Господа мастера!
Обрабатываю событие OnClick кнопки Button1.
Для визуализации нажатия кнопки использую:
Button1.Perform(BM_SETSTATE,1,0);
но при этом снова возникает событие OnClick.
Как придать кнопке нажатое состояние без активизации OnClick?


Sonnik   (2004-06-29 09:25:00) [1]

На время выполнения операции визуализации нажатия кнопки Button1.OnClick := nil;
после обработки возвращаешь старое значение.(TnotifyEvent переменную заводишь в которую сохраняешь)


ЮЮ   (2004-06-29 09:07:00) [2]

Button1.tag := 1;
Button1.Perform(BM_SETSTATE,1,0);

в OnClick:

if TButton(Sender).tag = 0 then begin
 <собственно обработка>
end
else
 TButton(Sender).tag := 0;


Anatoly Podgoretsky   (2004-06-29 09:06:00) [3]

Ты уэе его перехватил, а обнулить нельзя, разве что по рукам теому кто кликнул, чтобы больше так не делал.


Alex_s   (2004-06-29 09:03:00) [4]

А как событие OnClick перехватить и "обнулить"?


ЮЮ   (2004-06-29 08:44:00) [5]

Для этого надо использовать кнопки, имеющие сво-во типа Down ( TSpeedButton, TToolButton). "Залипание" у TButton не заложено в генотип


Наверх

Титульная страница Поиск, карта сайта Написать письмо