Скачать: CL | DM;

Визуализация нажатия кнопки без события 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]

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

---

← →
ЮЮ ©   (2004-06-29 09:07) [4]

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 переменную заводишь в которую сохраняешь)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c