Доброе время суток форумчане,
В модуле объявил:
Код:
type
TDBLookUpComboBoxHint = class(TCustomDBLookupComboBox)
private
FHint: THintWindow;
protected
procedure WMCTLCOLORLISTBOX(var Message: TMessage); message WM_CTLCOLORLISTBOX;
end;
var
Form2: TForm2;
FMyLookUpComboBoxHint: TDBLookUpComboBoxHint;
Создал компонент и присвоил ему событие «
OnMouseMove» компонента на форме «
DBLookupComboBox»
Код:
procedure TForm2.FormCreate(Sender: TObject);
begin
FMyLookUpComboBoxHint := TDBLookUpComboBoxHint.Create(self);
with FMyLookUpComboBoxHint do
begin
Parent := self;
FMyLookUpComboBoxHint.OnMouseMove := DBLookupComboBox1.OnMouseMove;
end;
end;
и написал заготовку для обработки сообщения
Код:
procedure TDBLookUpComboBoxHint.WMCTLCOLORLISTBOX(var Message: TMessage);
begin
FHint := ‘’;
end;
А вот как теперь его отловить сообщение которое будет генерироваться пока водишь мышкой по выпадающему списку
DBLookupComboBox1?