![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
не отрабатывает событие дабл клик для некоторых компонентов
Sakipiel © (2014-06-23 08:36:00)
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 в нее даже не заходят...., при том что назначение для всех компонентов происходит одинакого, в чем может быть беда? И заодно, чек бокс при онклике продолжает ставить и убирать галочку, как это отключить? Кстати ОнКлик у всех тоже назначенная мной процедура и она отрабатывает у всех в том числе и у батона и у чек бокса. Но галочка в моей процедуре никак не обрабатывается, а переставляться она все равно переставляется..
KilkennyCat (2014-06-23 20:43:00) [1]
> Нужно менять логику интерфейса
точно. попадался мне как-то такой даблкликовый могоуровневый чекбокс.... убил бы.
Dennis I. Komarov (2014-06-23 10:24:00) [2]Нужно менять логику интерфейса
ВладОшин (2014-06-23 10:04:00) [3]назначайте им mousedown и тап проверяйте по времени м/д кликами
Ega23 (2014-06-23 10:01:00) [4]
> у всех все работает, а Button и CheckBox в нее даже не заходят
У TButton и TCheckBox нет события OnDblClick