title image


Smiley FormCloseQuery
var

erlaubt: boolean = false;



procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

canclose := erlaubt;

if not erlaubt then application.minimize;

end;



Gruß DBR
Eine Stunde denken spart zehn Stunden programmieren!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: