Beim Close Form in Systemtray?

[AlexII]

Hallo,

ich verwende die Komponente CoolTrayIcon. Ich möchte jetzt das Prog in die Systemtray schicken wenn der Anwender das Programm schließt.

Finde hier im Forum nix und die Komponente bietet wohl nix derartiges.. auf jeden Fall komme nicht weiter. Thx!

[rollstuhlfahrer]

Das CoolTrayIcon bietet nur ein MinimizeToTray. Falls du das mit dem [X]-Button haben willst, musst du in OnClose() des Forms dem Form sagen, ob es sich löschen soll (Anwendung wirklich beenden, soll vorkommen) oder ob es sich einfach nur in den Tray legen soll (Anwender klickt auf [X]). Dafür gibt es caMinimize/caHide.

Bernhard

[AlexII]

Hm... ob bei caMinimize oder caHide wird dir Form immer geschlossen.

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:= caMinimize;
end;

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:= caHide;
end;

[Codewalker]

Dafür gibt es das Ereignis OnCloseQuery. Es wird ausgelöst, wenn der Anwender versucht, das Formular zu schließen. Über den Parameter CanClose legst du fest, ob das Formular wirklich geschlossen werden soll. In deinem Fall setzt du also CanClose auf False und schickst das Programm in den Tray.

[AlexII]

Ok danke, hab's hinbekommen!