user should not be able to close form/de

│ Deutsch (de) │ English (en) │ français (fr) │

Zurück zur Seite Code Beispiele.

Die Prozedur verhindert das Beenden des eigenen Programms durch den Anwender.
Dafür muss das Ereignis OnCloseQuery der Form angepasst werden.

Beispiel:

uses
  Forms, ...;
  
  ...
  
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin 
  CanClose:=false; 
end;
  
  ...

--Olaf 05:16, 27 May 2013 (UTC)