Ventanita para confirmar salir

[mefixxto]

Como hago para que cuando quiera cerrar mi aplicacion salga una ventana de si o no decea realmente cerrar la aplicacion???

[dec]

Hola,

En el evento "OnClose" del formulario principal de tu aplicación, sitúa el siguiente código:

Código Delphi [-]
CanClose := (MessageDlg('Are you sure?', 
 mtConfirmation, [mbYes, mbNo], 0) = mrYes);

[[Delphius]]

David no te enojes pero,... el evento al que te refieres es OnCloseQuery.

Saludos,

[dec]

Hola,

Ah, no, no sólo no me enojo, sino que llevas toda la razón Delphius. El evento a usar es "OnCloseQuery", no "OnClose".

[krlox31416]

es exactamente lo que dice delphius...

pero según a las necesidades de cada uno tambien se puede en el evento onclose;

Código Delphi [-]
procedure TForm5.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Application.MessageBox('¿Desea salir de proveedores?','Confirmación',MB_YESNO+MB_ICONQUESTION) = mrNO Then
   begin
   CanClose := false;
   Form3.Visible:=False;
   ComboBox1.SetFocus;
   end
   else
   begin
   Form3.Visible:=True;
   Edit1.Clear;
   Edit2.Clear;
   Edit3.Clear;
   Edit4.Clear;
   Edit5.Clear;
   Memo1.Clear;
   ComboBox1.Text:='    Día';
   ComboBox2.Text:='         Mes';
   ComboBox3.Text:='      Año';
   end;
end;

espro y te sirva...
SALUDOS!!!

[[FGarcia]]

Editado: ¡¡¿Quien sabe que carajos vi?!!