Moin !
Ich schreibe mir gerade basierend auf dem hier:
http://www.delphipraxis.net/internal_redirect.php?t=420
eine Klasse in einer eigenen
Unit mit der ich ein Tray erzeugen und Balloonhints darstellen kann.
Klappt auch soweit ganz gut was das Erstellen und Anzeigen angeht.
Nun wollte ich auf die Windows Botschaften reagieren um z.B. die Mausklicks auf das Tray auswerten zu können.
Dazu hat meine
Unit folgende Zeile:
Delphi-Quellcode:
Const
WM_TNAMSG = WM_USER + 10;
So und im Create wird das auch übergeben:
Delphi-Quellcode:
constructor TTrayDS.Create(
Handle : HWND);
begin
NID.cbSize := SizeOf(DS_TNotifyIconData);
NID.uID := 13082009;
NID.uFlags := NIF_MESSAGE
or NIF_ICON
or NIF_TIP;
NID.uCallbackMessage := WM_TNAMSG;
// <--------
NID.hIcon := 0;
NID.szTip := '
Test';
NID.Wnd :=
Handle;
NID.hIcon := LoadIcon(0, IDI_INFORMATION);
// TrayIcon anzeigen
Shell_NotifyIcon(NIM_ADD, @NID);
end;
Wie gesagt das steht alles in meiner eigenen
Unit. In der
Unit des Hauptprogs habe ich dann folgende Zeile:
Delphi-Quellcode:
type
TForm1 = class(TForm)
...
private
{ Private-Deklarationen }
procedure TaskbarEvent(var Msg: TMessage); Message WM_TNAMSG;
public
Und dazu die Auswertung:
Delphi-Quellcode:
procedure TForm1.TaskbarEvent(var Msg: TMessage);
var Point : TPoint;
begin
{ Eventhandler-Beispiele von Robert Fischer: }
case Msg.LParam of
WM_LBUTTONUP:
begin
//Mach etwas nach einem Linksklick...
end;
end;
end;
Aber TaskbarEvent wird niemals nicht aufgerufen.
Die Frage wäre nun - Warum !?
Stellt es ein Problem dar dass das TrayIcon und die Balloons aus der Klasse heraus erstellt werden und ich die Windows Messages in meinem Programm abfange? Aber eigentlich übergebe ich ja das Fenster
Handle mit, also sollte das doch klappen!?
Hat jemand ne Idee?