Baloon-Hint im TrayIcon

[k4ni]

Hey,

Also ich versuche gerade mit einem Hint komponenten ein Baloon-Hint auf ein Tray-Icon zu machen bzw. anzeigen zu lassen.
Also in etwa so wie da:
http://www.delphipraxis.net/internal...ht=ballon+tray

Also so ruft man den hint normalerweise auf:

Delphi-Quellcode:

        Hint.ShowTextHintBalloon(bmtInfo, 'How is the test?',
      'WHOA! Am i looking frightnng for you? :)',
      300, 10, 10, self, TALHintBalloonArrowPosition(1));

Also self ist so zu sagen das "handle". Ich könnte da jetzt auch Button1 oder so rein machen.
So nun will ich das aber auf mein TrayIcon klatschen, nur bekomm das nicht hin.
Der Hint will ein TControl als handle.

Hier zeig ich euch mal wie ich das TrayIcon erstell:

Delphi-Quellcode:

  ...
WM_ICONTRAY  = WM_USER + 1;  // bei mir global
TrayIconData: TNotifyIconData;  // auch global

procedure TForm1.FormCreate(...)
begin
  with TrayIconData do
  begin
    cbSize := SizeOf(TrayIconData);
    Wnd := Handle;
    uID := 0;
    uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
    uCallbackMessage := WM_ICONTRAY;
    hIcon := Application.Icon.Handle;
    StrPCopy(szTip, Application.Title);

      ShowWindow( Application.Handle, SW_HIDE );
  SetWindowLong( Application.Handle, GWL_EXSTYLE,
                 GetWindowLong(Application.Handle, GWL_EXSTYLE) or
                 WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
  ShowWindow( Application.Handle, SW_SHOW );
  end;

  Shell_NotifyIcon(NIM_ADD, @TrayIconData);
...
end;

Nun wenn ich aber WM_ICONTRAY oder TrayIconData als TControl-handle beim Hint component benütze geht es natürlich nicht.
Irgend ne idee wie ich das machen könnte?

[Fussball-Robby]

Ich weiß zwar keine Lösung für dein Problem, aber ich kann dir nur die Komponente CoolTrayIcon empfehlen (kostenlos). Damit ist es ganz einfach, Balloontips, Hints etc. darzustellen. Ein Klick genügt

Mfg

[RavenIV]

Zitat von Fussball-Robby:

Ich weiß zwar keine Lösung für dein Problem, aber ich kann dir nur die Komponente CoolTrayIcon empfehlen (kostenlos). Damit ist es ganz einfach, Balloontips, Hints etc. darzustellen. Ein Klick genügt

Mfg

Dem kann ich nur beisteuern.
Wenn ich ein Programm mit TrayIcon erstelle, verwende ich nur CoolTrayIcon.
Damit klappt alles zu meiner Zufriedenheit.