Formular schliessen verhindern, wie?

[Noedel]

Ich glaube er sucht nach der Funktion "MessageDLG"...

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:=false;
  If MessageDlg('Beenden?',MTConfirmation,[MbYes,MbNo],0)=MrYes then
    CanClose:=true;
end;