[Rusland]

Вот так пытаюсь отловить TTN_POP

Код:

  protected
    procedure WMNotify(var Message: TWMNotify); message WM_NOTIFY;
...

procedure TFrm1Main.WMNotify(var Message: TWMNotify);
begin
  inherited;
  //if integer(Message.NMHdr.hwndFrom) = integer(FTTHandle) then
  begin
    case Message.NMHdr.code of
      TTN_POP:
        begin
          Frm1Main.Caption:='Сработал TTN_POP';{do something here, when tooltip hides}
        end;
      TTN_SHOW:
        begin
          {do something here, when tooltip show itself}
        end;
    end;
  end;
end;

Но во внутрь процедуры вообще никогда не заходит. Что не так делаю?

PS. С "никогда" погорячился - оказывается в процедуру заходит, например, когда кликаю по StatusBar. А вот на появление/скрытие ToolTip никак не реагирует, события WMNotify не происходит.
Что делать?