Difference between revisions of "user should not be able to close form/de"

From Lazarus wiki
Jump to navigationJump to search
m
m
Line 23: Line 23:
 
<br>
 
<br>
 
--[[User:Olaf|Olaf]] 05:16, 27 May 2013 (UTC)
 
--[[User:Olaf|Olaf]] 05:16, 27 May 2013 (UTC)
[[Category:Code Parts/de]][[Category:Code/de]]
+
[[Category:Code Parts/de]][[Category:GUI/de]]

Revision as of 11:56, 29 May 2013

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


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)