|
|
|
Zákaz uzavření aplikace
|
29.11.2009
|
Úvod
Tato ochrana nedovolí uživateli zavřít program. Hodí se například, když právě probíhají nějaké operace s daty a ukončením hrozí jejich ztráta.
Funkci je třeba umístit do události FormCloseQuery. CheckBoxem je pouze demonstrováno vypnutí a zapnutí funkce.
Prvky
CheckBox1
Kód
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
IF CheckBox1.Checked=True then CanClose:=False;
end;
Doplňky
Informační tabulky
|
|
|
