Difference between revisions of "user should not be able to close form/de"
From Lazarus wiki
Jump to navigationJump to searchm |
|||
| Line 15: | Line 15: | ||
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); | procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); | ||
begin | begin | ||
| − | + | CanClose:=false; | |
end; | end; | ||
| Line 24: | Line 24: | ||
<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:GUI/de]]{{AutoCategory}} | + | [[Category:Code]] |
| + | [[Category:LCL]] | ||
| + | [[Category:Forms]] | ||
| + | [[Category:Code Parts/de]] | ||
| + | [[Category:GUI/de]]{{AutoCategory}} | ||
Revision as of 23:39, 10 May 2014
│
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 angepasst werden.
Beispiel:
uses
Forms, ...;
...
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=false;
end;
...
--Olaf 05:16, 27 May 2013 (UTC)
