Реакция компонента при потере им фокуса

[NaumOff]

Приветствую.
Есть самописный визуальный компонент, ComboBox с отображением дерева элементов вместо плоского списка. При потере фокуса или клике вне компонента (уйти можно на форму или компонент без фокуса) дерево надо прятать, как это делает стандартный Combobox. Первое сделал путем реагирования на событие OnExit. Как реализовать второе?

[evg_m]

http://programmersforum.ru/showthread.php?t=294246
http://programmersforum.ru/showthread.php?t=233329
в твоем случае это видимо будет DoExit

Первое сделал путем реагирования на событие OnExit.

которое в свою очередь есть всего лишь обработка соответствующего сообщения windows

procedure TWinControl.CMExit(var Message: TCMExit);
begin
  DoExit;
end;

так что можно еще и просто (или не совсем просто, с учетом необходимости реакции на данное сообщение и в родительском компоненте) написать обработку соответствующего сообщения.

[northener]

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

которое в свою очередь есть всего лишь обработка соответствующего сообщения windows

Если быть точным, то CM_XXXX это сообщения VCL. К Windows они отношения не имеют.

[Аватар]

ComboBoxEx сильно не подходит?

[NaumOff]

evg_m
Не хотел делать сабклассинг дерева. Раз так то лучше ловить WM_KILLFOCUS. Но суть не в этом. Фокус не меняется при клике по форме или панелям. А вот стандартный комбобокс имеет процедурку

procedure CNCommand(var Message: TWMCommand); message CN_COMMAND;

где и происходит закрытие списка. Как заставить систему отсылать моему дереву такое сообщение?

Аватар
ComboBoxEx примитивен. Набросав пару десятков строк кода я уже получил крутотенечку использующую всю мощь VirtualTree. Закрытие дерева пока реализовал кнопкой в заголовке.
Автор IBExpert`a как то реализовал такой контрол. См. вложение.
Не могу понять на базе чего он сделан. Если жамкнуть Alt+PrintScreen то сохраняется только выпадающий список. Это отдельная форма? Тогда почему не меняется фокус основной формы?

[Аватар]

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

[NaumOff]

Аватар
Теперь понятно как реализовывают такие окна. Только к сожалению я не смог нормально отобразить всплывающее окно без потери фокуса основной формы.
В Delphi у меня сработал метод

procedure TMyFrm.WMMouseActivate(var Message: TMessage); // message WM_MOUSEACTIVATE;
begin
  Message.Result := MA_NOACTIVATE;
end;

и почему то не работает

Params.ExStyle := Params.ExStyle + WS_EX_NOACTIVATE;

в CreateParams.
Но по правде говоря компонент я пишу для Лазаруса (переводим на него все проекты и прощаемся с Delphi), а в нем не работают оба метода. Досадно.
С формой как мне кажется было бы предпочтительнее, возможностей больше, но тогда придется смириться с дерганьем заголовков форм, которое побороть я пока не могу.
Кстати по главному вопросу этой темы-воспользовался костылем: глобальный хук на клик мышью. Работает как надо.