Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Ventanita para confirmar salir (https://www.clubdelphi.com/foros/showthread.php?t=59000)

mefixxto 09-08-2008 01:16:16

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

dec 09-08-2008 01:32:41

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 09-08-2008 02:54:40

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

Saludos,

dec 09-08-2008 03:00:27

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 27-09-2008 04:00:35

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...:D
SALUDOS!!!:)

FGarcia 27-09-2008 18:23:12

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

krlox31416 29-09-2008 02:34:59

para lo que quieres seria en OnCloseQuery
 
como podras ver en el código se porgrama en ese evento...;)

y eso es lo que tu deceas!!!

saludos...:)

mefixxto 29-09-2008 16:32:50

Gracias a todos :D me quedo perfecto.-


La franja horaria es GMT +2. Ahora son las 20:16:01.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi