user should not be able to close form/de

From Lazarus wiki
Revision as of 06:19, 27 May 2013 by Olaf (talk | contribs)
Jump to navigationJump to search

Template:user is not able to close form


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

Beispiel:

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



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