![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Визуализация нажатия кнопки без события 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 не заложено в генотип