Klick wird nicht erkannt!?

[Jens Schumann]

Hallo Daniel,
so macht man das

Delphi-Quellcode:

procedure TFormWTC.ShowInTBNA;
var
    aNID : TNotifyIconData;
begin
  with aNID do begin
    cbSize := SizeOf(TNotifyIconData);
    Wnd := Handle; // Hier wird das Handle des Formulars übergeben !!!
    uID := cTaskBarId;
    uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
    uCallBackMessage := WM_TRAYMSG;
    hIcon := LoadImage(hInstance, PChar('WTC16'), IMAGE_ICON, 16, 16, 0);
    szTip := 'WTC';
  end;
  Shell_NotifyIcon(NIM_ADD, @aNID);
  Application.ShowMainForm:=False;
  ShowWindow(Application.Handle,SW_HIDE);
end;

Du initialisierst TNotifyIconData im var Abschnitt. Davon kann ich nur abraten. Schreibe Die lieber ne Methode und mach es dort.