Systray-Icon in eigener Klasse

[Marphy]

Hmm, was machst du da mit AllocateWnd herum?!

Delphi-Quellcode:

procedure TSystrayIcon.Create(AOwnerForm: TForm);
  // ...
  FHandle := AOwnerForm.Handle;
  FOldWndProc := AOwnerForm.WindowProc; // Member hinzufügen!
  AOwnerForm.WindowProc := MessageHandler;
  // ...
end;

procedure TSystrayIcon.Destroy();
  // ...
  AOwnerForm.WindowProc := FOldWndProc;
  // ...
end;

Gruß, Marco