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;