|
Registriert seit: 21. Mär 2003
Ort: Hünfelden (Hessen), Germany
4 Beiträge
Delphi 5 Standard
|
21. Mär 2003, 16:33
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
|