Визуализация нажатия кнопки без события OnClick

← →
Alex_s (2004-06-29 08:00) [0]

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

← →
ЮЮ © (2004-06-29 08:44) [1]

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

← →
Alex_s (2004-06-29 09:03) [2]

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

← →
Anatoly Podgoretsky © (2004-06-29 09:06) [3]

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

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

в OnClick:

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

← →
Sonnik (2004-06-29 09:25) [5]

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

Визуализация нажатия кнопки без события OnClick Найти похожие ветки