Ir al contenido


Foto

[TRUCO DELPHI] Evitar que el Formulario se cierrer con Alt-F4 desde una Condicion.


  • Por favor identifícate para responder
No hay respuestas en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 10 diciembre 2016 - 05:18

[TRUCO DELPHI] Evitar que el Formulario se cierrer con Alt-F4 desde una Condicion.


delphi
  1. var
  2. Form1: TForm1;
  3. CloseVariable: Boolean;
  4.  
  5. implementation
  6.  
  7. {$R *.DFM}
  8.  
  9. procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  10. begin
  11. CanClose := CloseVariable;
  12. //Si CloseVariable es true se cerrara, de lo contrario no.
  13. end;
  14.  
  15. procedure TForm1.Button1Click(Sender: TObject);
  16. begin
  17. CloseVariable := True;
  18. Close;
  19. end;
  20.  
  21. procedure TForm1.FormCreate(Sender: TObject);
  22. begin
  23. CloseVariable := False;
  24. end;
  25.  
  26. end.

Saludos!


  • 1




IP.Board spam blocked by CleanTalk.