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

From Lazarus wiki
Jump to navigationJump to search
m
m (Fixed syntax highlighting; deleted category included in page template)
 
(4 intermediate revisions by 3 users not shown)
Line 1: Line 1:
 
{{user should not be able to close form}}
 
{{user should not be able to close form}}
<br>
+
 
Zurück zur Seite [[code examples/de|Code Beispiele]].<br>
+
 
<br>
+
Zurück zur Seite [[code examples/de|Code Beispiele]].
Die Prozedur verhindert das Beenden des eigenen Programms durch den Anwender.<br>
+
 
Dafür muss das Ereignis OnCloseQuery angepasst werden.<br>
+
 
<br>
+
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;  
+
  CanClose:=false;  
 
end;
 
end;
 
    
 
    
Line 21: Line 25:
 
    
 
    
 
</syntaxhighlight>
 
</syntaxhighlight>
<br>
 
<br>
 
--[[User:Olaf|Olaf]] 05:16, 27 May 2013 (UTC)
 
[[Category:Code Parts/de]][[Category:GUI/de]]{{AutoCategory}}
 

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;
  
  ...