Difference between revisions of "user should not be able to close form"
From Lazarus wiki
Jump to navigationJump to searchLine 22: | Line 22: | ||
<br> | <br> | ||
[[Category:Code]] | [[Category:Code]] | ||
− | |||
[[Category:Forms]] | [[Category:Forms]] | ||
{{AutoCategory}} | {{AutoCategory}} |
Revision as of 23:53, 10 May 2014
│
Deutsch (de) │
English (en) │
français (fr) │
The procedure prevents the termination of the specific program, by the user.
Therefor the form event OnCloseQuery must to be adapted.
Beispiel:
uses
Forms, ...;
...
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=false;
end;
...