1 reply to this topic

[sir.dev.a.lot]

[TRUCO DELPHI] Preguntar antes de salir del Formulario.

delphi

procedure TForm1.FormCloseQuery(
	  Sender: TObject;
	  var CanClose: Boolean);
	begin
	  if(mrNo = MessageDlg(
	       'Desea salir de esta Aplicacion, Ahora?',
	       mtInformation,
	       [mbYes, mbNo],
	       0)) then
	  begin
	    CanClose := False;
	  end;
	end;

Saludos!

Edited by sir.dev.a.lot, 26 August 2016 - 08:22 AM.

[Agustin Ortu]

Solo para aclarar, lo que se hace es agregar un manejador al evento OnCloseQuery de la clase TForm