1 respuesta en este tema

[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!

Editado por sir.dev.a.lot, 26 agosto 2016 - 08:22 .

[Agustin Ortu]

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