Programm bei Klick auf "X" minimieren

[Matze]

Moin

Ich möchte, dass meine Anwendung per Klick auf das "X" oben rechts minimiert wird (es wird dann in der TNA eingetragen).

Versucht habe ich's so:

Delphi-Quellcode:

//OnCloseQuery
  if MinimizeAtClose then
  begin
    Application.Minimize;
    CanClose := false;
  end else
    CanClose := true;

und so:

Delphi-Quellcode:

//OnClose
  if MinimizeAtClose then
  begin
    Application.Minimize;
    Action := caNone;
  end;

beides geht nur einmal gut, danach passiert bei Klick auf "X" nichts mehr.
Und wenn ich die Anwendung so in die TNA minimiere und doppelt auf das TNA Icon klicke, wird das Fenster nur im Hintergrund sichtbar, was mir auch ein Rätsel ist.

Kann mir jemand sagen, wo der Fehler liegt?

[Rastaman]

Vllt erst Action := canone und dann minimieren?

[Matze]

Nein, kommt auf das gleiche heraus.

[malo]

Vielleicht anders herum? Erst minimieren und dann Action auf caNone? Oder... ich weiß nicht genau, aber ich glaub, es gibt sowas wie caMinimize. Schau mal in der OH unter Close oder CloseAction.

//edit: Der erste Fall fällt natürlich aus, hat ja nicht geklappt

[Matze]

Zitat von malo:

Vielleicht anders herum? Erst minimieren und dann Action auf caNone?

So hatte ich es ja.

Zitat von malo:

Oder... ich weiß nicht genau, aber ich glaub, es gibt sowas wie caMinimize.

Kenne ich nicht, gibt's in der Form wohl nicht.

Zitat von malo:

Schau mal in der OH unter Close oder CloseAction.

Da finde ich nichts. Ich muss zugeben, mit der neuen OH komme ich gar nicht klar.

Sprache: Delphi
Begriff: "CloseAction"
Ergebnisse: keine

[malo]

Zitat von Matze:

Zitat von malo:

Vielleicht anders herum? Erst minimieren und dann Action auf caNone?

So hatte ich es ja.

Zitat von malo:

Oder... ich weiß nicht genau, aber ich glaub, es gibt sowas wie caMinimize.

Kenne ich nicht, gibt's in der Form wohl nicht.

Zitat von malo:

Schau mal in der OH unter Close oder CloseAction.

Da finde ich nichts. Ich muss zugeben, mit der neuen OH komme ich gar nicht klar.

Sprache: Delphi
Begriff: "CloseAction"
Ergebnisse: keine

Ich hab hier grad kein Delphi auf dem PC. Ein kleiner Tipp jedoch: Schau mal in deiner D7-OH. Mach ich auch immer

Ich selbst hab es jedoch irgendwie mit der CloseAction gemacht... ich glaub, es war caMinimize

//edit: Eventuell mal etwas unter "Close" suchen... hab ich auch gemacht. Wenn ich hier ein Delphi hätte, würd ich selbst eben nachgucken

[BenjaminH]

Also mit dem Begriff TCloseAction hab ich genug gefunden:
caMinimize
[Edit]Das war sogar die D2005 Hilfe [/Edit]

[malo]

Zitat von BenjaminH:

Also mit dem Begriff TCloseAction hab ich genug gefunden:
caMinimize
[Edit]Das war sogar die D2005 Hilfe [/Edit]

//edit: Hätte es wissen müssen, dass "CloseAction" ja kein Typ ist

[Matze]

Ah "TCloseAction" stimmt, da findet er was.

Action := caMinimize; geht soweit, nur ist mein Symbol nicht mehr in der TNA

[malo]

Zitat von Matze:

Ah "TCloseAction" stimmt, da findet er was.

Action := caMinimize; geht soweit, nur ist mein Symbol nicht mehr in der TNA

Womit jagst du dein Programm denn in die TNA? Der Code aus der CodeLib? Oder CoolTrayIcon? Zeig doch einfach mal die enstprechende Funktion, vielleicht lässt sich da der Fehler finden