Formular schliessen verhindern, wie?

[khh]

ich danke euch, das hab ich gesucht:

Delphi-Quellcode:

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

Gruss KH

[mkinzler]

Zitat:

Also ich habe da ein Problem...ich bekomme die Prozedur, die in dem Thread nicht implementiert!
Er sagt mir immer, dass es ein undefinierter Bezeichner ist. ([Fehler] Unit1.pas(1420): Undefinierter Bezeichner: 'FormCloseQuery').

Einfach im Objekrinspektor bei den Ereignissen Doppelklick nei onCloseQuery ausführen, dann wird die entsprechende Methode ind der benutzerdefinierten Formularklasse erzeugt und mit dem Event verknüpft