Código Delphi [-] procedure TForm1.OnCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose := MessageBox('¿Está seguro que desea salir de la aplicación?', 'Confirmar salida', MB_ICONQUESTION + MB_YESNO) = IDYES end;
procedure TForm1.OnCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose := MessageBox('¿Está seguro que desea salir de la aplicación?', 'Confirmar salida', MB_ICONQUESTION + MB_YESNO) = IDYES end;