Fenster unsichtbar machen --> Systray

[bembulak]

Hallo!

Gerade beschäftigt mich das Thema Systray unter Windows. Ich habe im Examples Verzeichnis der Laz-Installation auch ein Beispiel gefunden.
Ich weiß somit, wie man ein Icon im Systray hinzufügt.

Was ich allerding nicht raffe:
ich möchte gerne, dass ich meine MainForm durch klicken von "X" oder beim Shortcut "ALT+F4" nicht schließt, sonder nur in den Tray minimiert wird. Wenn ich dann auf den Tray klicke, hätte ich gerne ein Popup-Menü, um das Fenster wieder zu vergrößern.

Kann mir jemand einen Tip geben, oder einen Hinweis, wo ich die Information finden kann? Die Frage bezieht sich in dem Fall ausschließlich auf W32, es ist also nicht nötig, dass der Code/die Ressource/die Information crossplattform ist. Dankeschön und schönen Abend noch!

edit:// OK,

Code: Alles auswählen

Form1.Visible %u3a= False;

dürfte meine Frage wohl beantwortet haben. Manchmal übersieht man einfach das Offensichtlichste.

[Christian]

Du kannst im OnClose deiner MainForm CloseAction auf caNone setzen. Damit wird deine Applikation nicht beendet.
Mit MainForm.Hide; kannst du sie dann verstecken.

[bembulak]

Code: Alles auswählen

CloseAction := caNone;
Mainform.Hide;

Ah, dankeschön!
Das hilft mir sicher weiter.

[bembulak]

Sorry, ich muss das hier noch mal hochpushen.

Das mit der CloseAction verstehe ich nämlich nicht ganz. Ich kann diese Eigenschaft im Objektinspektor leider nicht finden und auch im Editor bekomme ich dazu im AutoComplete keinen Eintrag.
Könnt ihr mir ein wenig auf die Sprünge helfen? Danke.

[af0815]

Das mit der CloseAction verstehe ich nämlich nicht ganz. Ich kann diese Eigenschaft im Objektinspektor leider nicht finden und auch im Editor bekomme ich dazu im AutoComplete keinen Eintrag.

Erzeuge mal den OnClose mittels Objektinspektor und schau dir mal dann die Definition im Sourcecode an. Dort findest du die CloseAction.

[bembulak]

Ok, danke. Ich hatte mir das jetzt mal angesen und die OnClose Action wird folgendermaßen definiert (per default vom System):

Code: Alles auswählen

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
 
end;

Aha, da ist die CloseAction. Gut. Ich habe dann (wahrscheinlich aus Unwissenheit) die Prozedur folgendermaßen erweitert:

Code: Alles auswählen

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
   CloseAction := caNone;
   // weiterer Code....
   //Form1.Visible:= False;
end;

Das scheint auf meiner Maschine in der Arbeit auch ohne Probleme zu funktionieren. Zuhause am Notebook bekomme ich allerdings wieder die lustigsten Fehler. Wie schon einmal schmiert der Debugger ab und ich bekomme SIG_SEG....
Ganz verstehen tu ich das allerdings nicht.

Danke jedenfalls für die Hilfe.

[Christian]

Ich glaub kaum das das, was damit zu tun hat.

[monta]

Die Frage wäre dabei wohl...gehts ohne Debugger? Bestimmte dinge mag dieser ja nicht, auch wenns an sich stimmt.

[Christian]

geht bei mir mit und ohne