Problem mit caNone, caMinimize bei Form.OnClose

[PeterPanino]

Hallo! Ich möchte, dass mein Programm beim Klick auf den X-Schließknopf des Formulars - evtl. auf Nachfrage - minimiert statt beendet wird.

Nun habe ich in den OnClose-Eventhandler des Hauptformulars folgenden Code geschrieben, um das mal zu testen:

Delphi-Quellcode:

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

Nach der Beschreibung in der Hilfe müsste damit beim Klick auf den Schließknopf (oder Systemmenü->Schließen) das Programm minimiert statt beendet werden. Es wird aber beendet statt minimiert. Wieso das?

Dann habe ich es mal caNone versucht:

Delphi-Quellcode:

procedure TformMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caNone;
end;

Theoretisch sollte da eigentlich gar nichts passieren. Es kommt aber ein Compilerfehler: "[DCC Fehler] HVMain.pas(5138): E2010 Inkompatible Typen: 'TCloseAction' und 'TCheckBoxAction'"

Wie das?? caNone wird doch ausdrücklich in der Hilfe als möglicher Wert für Action mit Typ TCloseAction genannt! Wieso findet hier eine Typverwechslung statt?

[PeterPanino]

Komisch, wenn ich schreibe:

Action := System.UITypes.TCloseAction(caNone);

entsteht kein Compilerfehler und das Beenden des Programms wird erwartungsgemäß verhindert.

Nur bei caMinimize wird das Programm immer noch beendet statt minimiert, auch wenn ich schreibe:

Action := System.UITypes.TCloseAction(caMinimize);

[haentschman]

Hallo...

normalerweise ist das was du gemacht hast richtig. Habe extra nochmal in einem Projekt gespickt . Leider kann ich dir nur soweit helfen... der Knackpunkt liegt wo anders.

[Sir Rufo]

Versuche es mal mit TCloseAction.caMinimize

[PeterPanino]

Zitat von Sir Rufo:

Versuche es mal mit TCloseAction.caMinimize

Bringt nichts, das Programm wird beendet statt minimiert:

Delphi-Quellcode:

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

[PeterPanino]

Übrigens, auch caHide BEENDET das Programm ...

[sakura]

Der Rückgabewert Action wird im OnClose-Ereignis des Hauptformulares ignoriert.

Nutze anstatt OnCloseQuery schreibe

Delphi-Quellcode:

  CanClose := False;
  WindowState := wsMinimized;

......

[PeterPanino]

... und selbst bei docs.embarcadero stehen zwei Beispiele, die deshalb nicht funktionieren:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if MessageDlg('Close application ?', mtConfirmation,
[mbYes, mbNo], 0) = mrYes then
Action := caFree
else
Action := caMinimize;
end;

[PeterPanino]

Zitat von sakura:

Der Rückgabewert Action wird im OnClose-Ereignis des Hauptformulares ignoriert.

Komisch, aber wenn ich schreibe:

Action := System.UITypes.TCloseAction(caNone);

dann wird er nicht ignoriert und das Schließen wird verhindert.

[sakura]

Stimmt, caNone wird akzeptiert. Mein Fehler, die anderen werden trotzdem im Hauptformular ignoriert. Aber Du kannst ja

Delphi-Quellcode:

  Action := TCloseAction.caNone;
  WindowState := wsMinimized;

schreiben.

......