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