Difference between revisions of "user should not be able to close form/de"
From Lazarus wiki
Jump to navigationJump to searchm |
m (Fixed syntax highlighting; deleted category included in page template) |
||
(11 intermediate revisions by 4 users not shown) | |||
Line 1: | Line 1: | ||
− | {{user | + | {{user should not be able to close form}} |
− | + | ||
− | + | ||
− | + | Zurück zur Seite [[code examples/de|Code Beispiele]]. | |
− | Die Prozedur verhindert das Beenden des eigenen Programms durch den Anwender. | + | |
− | Dafür muss das Ereignis OnCloseQuery angepasst werden. | + | |
− | + | Die Prozedur verhindert das Beenden des eigenen Programms durch den Anwender. | |
+ | |||
+ | Dafür muss das Ereignis OnCloseQuery der [[TForm/de|Form]] angepasst werden. | ||
+ | |||
Beispiel: | Beispiel: | ||
− | <syntaxhighlight> | + | |
+ | <syntaxhighlight lang=pascal> | ||
uses | uses | ||
Forms, ...; | Forms, ...; | ||
Line 15: | Line 19: | ||
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); | procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); | ||
begin | begin | ||
− | + | CanClose:=false; | |
end; | end; | ||
Line 21: | Line 25: | ||
</syntaxhighlight> | </syntaxhighlight> | ||
− | |||
− | |||
− | |||
− |
Latest revision as of 12:27, 3 March 2020
│
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;
...