Window Message kommt nicht an (TrayIcon)

[moelski]

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. :gruebel:
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?

[DeddyH]

Und wenn Du den Konstruktor-Parameter nicht ausgerechnet Handle sondern z.B. dwHandle nennst?

[himitsu]

Zitat:

Zitat von DeddyH

Und wenn Du den Konstruktor-Parameter nicht ausgerechnet Handle sondern z.B. dwHandle nennst?

der Parameter ist näher deklariert und hat demnach Vorrang,

aber nur zur Sicherheit: Wessen Handle hast du dem Konstruktor mitgegeben?

[moelski]

Moin !

Danke nun geht es. Das war ein guter Hinweis.
Ich habe dann auch noch das Create anders aufgerufen:
Tray := TTrayDS.Create(Form1.Handle);

vorher hatte ich
Tray := TTrayDS.Create(Application.Handle);

Danke :thumb:

@Himitsu: Ebend ...

[DeddyH]

Zitat:

Zitat von himitsu

Zitat:

Zitat von DeddyH

Und wenn Du den Konstruktor-Parameter nicht ausgerechnet Handle sondern z.B. dwHandle nennst?

der Parameter ist näher deklariert und hat demnach Vorrang,

aber nur zur Sicherheit: Wessen Handle hast du dem Konstruktor mitgegeben?

Was ist so schlimm daran, Variablen und Parametern Namen ohne Verwechslungsgefahr zu geben? Abgesehen von der besseren Les- und Wartbarkeit kann man so manchen Seiteneffekt damit vermeiden, aber mir ist es ja Wurscht, wie Ihr so programmiert :mrgreen:.