Form-OnClose abbrechen? | TForm1.FormClose

[elch]

hi!

ich möchte, wenn mein programm geschlossen wird, vorher eine abfrage machen ob gespeichert werden soll. das funktioniert auch - messagebox mit YES|NO. jetzt möchte ich aber noch nen button für abbrechen machen, also CANCEL.

Code:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if notsaved then
  if (MessageBox(0, 'Änderungen speichern?', 'Nicht gesichert', MB_YESNOCANCEL or MB_ICONWARNING) = IDYES) then
  ved_save;
end;

wie kann ich, wenn auf "Abbrechen" gedrückt wurde, das schließen des forms abbrechen?


mfg,
elch

[elch]

oh - ehm - hat sich erledigt... der delphi-hilfe sei dank.

Code:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var ExitButton: TModalResult;
begin
  if notsaved then
  ExitButton := MessageBox(0, 'Änderungen speichern?', 'Nicht gesichert', MB_YESNOCANCEL or MB_ICONWARNING);
  if ExitButton = mrYES then ved_save;
  if ExitButton = mrCANCEL then Action := caNone;
end;

elch

[CalganX]

Moin,
Tipp: nimm OnClose-Query... Da sagst'e einfach CanClose := false und nichts passiert...

Chris

[elch]

hmm... ok.

aber ist
Action := caNone; und
CanClose := false
nicht in etwa das selbe?

werd's jedenfalls mal ausprobiern.



danke!