[TRUCO DELPHI] Evitar que el Formulario se cierrer con Alt-F4 desde una Condicion.
delphi
var Form1: TForm1; CloseVariable: Boolean; implementation {$R *.DFM} procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose := CloseVariable; //Si CloseVariable es true se cerrara, de lo contrario no. end; procedure TForm1.Button1Click(Sender: TObject); begin CloseVariable := True; Close; end; procedure TForm1.FormCreate(Sender: TObject); begin CloseVariable := False; end; end.
Saludos!