![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Событие OnDblClick для LookUpComboBox
PoetOfDelphi © (2006-02-16 14:09:00)Салют!
В инспекторе объектов это событие для LookUpComboBox*а не показано.
Но поскольку последний является потомком TControl, насколько я понимаю, такое событие у него должно быть. Как назначить ему обработчик?
Пробовал так:
TComboBox(LookUpComboBox).OnDblClick:=LookUpComboBoxOnDblClick.
Ни к чему не приводит...
PoetOfDelphi (2006-02-17 16:49:00) [1]
> umbra © (16.02.06 15:47) [7]
Пасиба. Бум пробовать...:)
umbra (2006-02-16 15:47:00) [2]в принципе, сам код выглядит так:
unit MYdblookupCombo1;
interface
uses
SysUtils, Classes, Controls, StdCtrls, dblookup;
type
tMYdblookupCombo1 = class(TDBLookupCombo) //объявляем наследника
published
{ Published declarations }
property OnDblClick; //публикуем свойство
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [tMYdblookupCombo1]);
end;
end.
чтобы новый компонент можно было поместить на форму, надо добавить его в палитру компонентов делфи. Как это сделать, написано в справке.
PoetOfDelphi (2006-02-16 15:20:00) [3]
> в принципе надо объявить наследника от ТDBLookUpComboBox
> и опубликовать у него свойство OnDblClick
как?
Ega23 (2006-02-16 14:59:00) [4]
> хозяин - барин. ну надо это человеку, что ж поделаешь. :
> )
Да я понимаю. Просто мне фантазии не хватает - куда этот даблклик присобачить...
umbra (2006-02-16 14:52:00) [5]Ega23 © (16.02.06 14:44) [3]
хозяин - барин. ну надо это человеку, что ж поделаешь. :)
Ega23 (2006-02-16 14:44:00) [6]Непонятен один момент: а нафига у LookupCombo обрабатывать OnDblClick?
umbra (2006-02-16 14:40:00) [7]
> TComboBox(LookUpComboBox)
а почемуTComboBox? он сТDBLookUpComboBoxникак не связан.
а в принципе надо объявить наследника отТDBLookUpComboBoxи опубликовать у него свойствоOnDblClick
umbra (2006-02-16 14:36:00) [8]
> TComboBox(LookUpComboBox)
а почемуTComboBox? он сТLookUpComboBoxникак не связан.