Código Delphi [-] procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose := MessageDlg('¿Realmente desea salir de la aplicación?', mtConfirmation, [mbOK, mbCancel], 0) = mrOk end;
procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose := MessageDlg('¿Realmente desea salir de la aplicación?', mtConfirmation, [mbOK, mbCancel], 0) = mrOk end;