Problem mit caNone, caMinimize bei Form.OnClose

[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]

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.

......

[PeterPanino]

Zitat von 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.

......

Vielen Dank! Du hast mich davon überzeugt, dass ich nun doch OnCloseQuery verwende.

[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;