user should not be able to close form/de

From Free Pascal wiki
Jump to navigationJump to search

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;
  
  ...