не отрабатывает событие дабл клик для некоторых компонентов

← →
Sakipiel (2014-06-23 08:36) [0]

procedure TDesForm.DblClick(Sender: TObject); begin if (Sender AS TControl).Name = "FormPrototype" then AddComponent else begin TDesForm((Sender AS TControl).Owner).Events.AddEvent((Sender AS TControl), "OnClick", (Sender AS TControl).Name + "OnClick"); TDesForm((Sender AS TControl).Owner).AddProcInModule ((Sender AS TControl).Name + "OnClick"); end; end;

пытаюсь такую процедуру назначить в событие даблклик добавляемых компонентов. В результате, у всех все работает, а Button и CheckBox в нее даже не заходят...., при том что назначение для всех компонентов происходит одинакого, в чем может быть беда? И заодно, чек бокс при онклике продолжает ставить и убирать галочку, как это отключить? Кстати ОнКлик у всех тоже назначенная мной процедура и она отрабатывает у всех в том числе и у батона и у чек бокса. Но галочка в моей процедуре никак не обрабатывается, а переставляться она все равно переставляется..

← →
Ega23 © (2014-06-23 10:01) [1]

> у всех все работает, а Button и CheckBox в нее даже не заходят

У TButton и TCheckBox нет события OnDblClick

← →
ВладОшин © (2014-06-23 10:04) [2]

назначайте им mousedown и тап проверяйте по времени м/д кликами

← →
Dennis I. Komarov © (2014-06-23 10:24) [3]

Нужно менять логику интерфейса

> Нужно менять логику интерфейса

точно. попадался мне как-то такой даблкликовый могоуровневый чекбокс.... убил бы.

не отрабатывает событие дабл клик для некоторых компонентов Найти похожие ветки