Delphi - DBLookupComboboxEh – всплывающая подсказка элементов списка

[KBO]

Доброе время суток,
Пользуюсь компонентом «DBLookupComboboxEh» и его расширенными возможностями, но не как не получается найти метода, который позволял бы выводить всплывающую подсказку в выпадающем списке, если элемент списка не влазит по длине в сам список.
Или там такого нет.
Или придется свое что-нибудь воять? типа перехвата сообщения "WM_CTLCOLORLISTBOX".


Заранне спасибо.

[xxbesoxx]

Сообщение от KBO

но не как не получается найти метода, который позволял бы выводить всплывающую подсказку в выпадающем списке

Вот так не устраивает ? https://ru.stackoverflow.com/questio...B7%D0%BA%D0%B0

[KBO]

Сообщение от xxbesoxx

Вот так не устраивает ?

Нет, это обычный "Hint" - такой есть у большинства компонентов.

Мне же ужен hint в выпадающем списке, стандартные компоненты таким свойством не обладают

[Аватар]

типа перехвата сообщения "WM_CTLCOLORLISTBOX".

http://www.delphisources.ru/pages/fa...obox_item.html

[KBO]

Сообщение от Аватар

http://www.delphisources.ru/pages/fa...obox_item.html

Та я такую конструкцию уже находил, думал с 2003г. что-нибудь да и изменилось...

[KBO]

И каким образом будет отрабатывать сообщение "WM_CTLCOLORLISTBOX", если в "DBLookupCombobox" в оличии от "Combobox", активный элемент в списке (при выборе) НЕ выделяется?

[KBO]

Сообщение от Аватар

http://www.delphisources.ru/pages/fa...obox_item.html

Судя из этого, мне придется пронаследовать компонент "DBLookupCombobox", т.е. на его основе создать свой? И там продолжать все делать?

[KBO]

вот что на данный момент получилось

...
type
  TDBLookUpComboBoxHint = class(TCustomDBLookupComboBox)

  private
    FHint: THintWindow;

  protected
    procedure WMCTLCOLORLISTBOX(var Message: TMessage); message WM_CTLCOLORLISTBOX;
  end;

var
  Form2: TForm2;
  FMyLookUpComboBoxHint: TDBLookUpComboBoxHint;

implementation

{$R *.dfm}

procedure TDBLookUpComboBoxHint.WMCTLCOLORLISTBOX(var Message: TMessage);
begin
  FHint := '';//здесь  Message.lParam
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  FMyLookUpComboBoxHint := TDBLookUpComboBoxHint.Create(self);
  with FMyLookUpComboBoxHint do
  begin

  end;
end;

тепрь нужно на форму положить компонент "DBLookupCombobox" и как-то его переопределить на мой созданный "FMyLookUpComboBoxHint ", а также его событие "MouseMove"