OnClose abbrechen?

[Knotti]

Hallo ich hab gerade versucht die Onclose Prozedur abbzubrechen ohne das das Fenster geschlossen wird. Ich dachte immer mir exit; könnte man eine Prozedur in ihrer Verarbetung Abbrechen lassen leider scheint es nicht so da sich das Fenster trozdem schließt...

Delphi-Quellcode:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
var
  buttonSelected : Integer;
begin
  if save= true then
    begin
      form1.close;
    end
      else
    begin
      buttonSelected := MessageDlg('Achtung der Sitzplan wurde noch nicht gespeichert! Möchten Sie trozdem Seatplan  schließen?',mtCustom,[mbYes,mbNo], 0);
        if buttonSelected = mrYes     then
          begin
            form1.close
          end;
        if buttonSelected = mrNo then
          begin
            exit;
          end
   end;
 end;

[rayman]

ich glaube, du kannst mit
Action := caNone; das Schließen verhindern.

[Knotti]

Ja Vielen Dank ,

warum so umständlich wenn es auch einfach geht?

[OLLI_S]

Hallo,

jedes Formular hat ein "OnCloseQuery" event.
Vor dem Closen wird dieses Event ausgeführt.

Beispiel:

Delphi-Quellcode:

procedure TfrmHauptFenster.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := False; // damit kann man das Formular niemals schließen
end;

Gruß


OLLI