FormCloseQuery Prozedur aufrufen

[roderich]

oder die Kurzform davon

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); 
begin 
  CanClose := Messagebox(Handle, 'Schließen?', 'Test', MB_YESNO) = ID_YES; 
end;

Roderich (Oberlehrer )