Mensaje antes de salir

[jorgegetafe]

Leí hace tiempo que habia una función para mostrar un mensaje antes de cerrar la aplicación.

Me explico mejor con un ejemplo: Cuando estamos por ejemplo con el block de notas y damos a salir, nos sale un mensaje que dice "¿Desea usted guardar los cambios antes de salir?" pues bien, eso es lo que quiero hacer yo, que se muestre ese mensaje con los botoncitos respectivos de aceptar y cancelar. Lo tengo que hacer creando una form nueva a mano, o hay algo que te lo de.

gracias y un saludo.

[[Delphius]]

En el evento OnCloseQuery se suministra un parámetro booleano (CanClose). Este parámetro determina si el formulario debe o no cerrarse.

Investiga un poco sobre este evento. Busca en los foros por onCloseQuery y obtendras buenos resultados.

tu deberás hacer algo como:

Código Delphi [-]
if Respuesta_usuario = OK
   then CanClose := TRUE
   else CanClose := FALSE

No tengo Delphi a mano.
Saludos,

[jorgegetafe]

Vale buscare, gracias.

[[Caral]]

Hola
Para salir del programa en el evento onclose:

Código Delphi [-]
if MessageDlg('¿Está seguro que desea salir del Programa?', mtConfirmation,
       [mbYes, mbNo], 0) = mrYes then
       Action := caFree
     else
       Action := caNone;

Para validar o guardar etc:

Código Delphi [-]
If MessageDlg('¿Desea guardar los cambios',mtConfirmation,[mbYes,mbNo],0) = mrYes 
then
// lo que sea
else
// lo contrario

Bueno me imagino que es asi.
Saludos

[sinalocarlos]

Caundo usas formas heredadas es facil utilizar en la forma base:

Código Delphi [-]
procedure formabase_frm.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
var
i,opcionelegida:integer;
begin
  inherited;
  i:=0;
  opcionelegida:=-1;
  while (i<=ComponentCount - 1) do
  begin
    if (Components[i] is Tdatasource) then
    begin

        if TdataSource(Components[i]).State in [dsedit, dsinsert] then
        begin

           if opcionelegida = -1 then
              opcionelegida:=Application.MessageBox('Existen Datos sin guardar, Desea Grabar los Cambios',
                              'Guardar', MB_YESNOCANCEL + MB_ICONINFORMATION );
           if opcionelegida <> -1 then
           begin
              case opcionelegida of
                  ID_NO:begin
                          TdataSource(Components[i]).DataSet.Cancel;
                  end;//ID_NO
                  ID_YES:begin
                          TdataSource(Components[i]).DataSet.Post;
                  end;//IS_YES
                  ID_CANCEL: begin
                          CanClose := False;

                  end;
              end;//case
           end;//if opcionelegida<>-1 then
        end;//if Tdatasorce
    end;//if components [i]
    inc(i);
 end;//while
end;//proc

Con lo cual Validas todos los datasources de tu forma, que porque datasource y no dataset, es por los que usamos los datasets en un modulo

Espero te sirva de algo

[jorgegetafe]

Gracias, despues de ponerlo ha quedado muy chulo jejeje

[jorgegetafe]

Como podría poner el mismo mensaje pero con aparte de 'si' y 'no' poniendo la opcion de 'cancelar'?

[[Delphius]]

Para hacer que la combinación sea SI,NO,CANCELAR existe la constante MB_YESNOCANCEL.

Fijate en el ejemplo que te expongo:

Código Delphi [-]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var Res: integer;
begin
 Res := MessageBox(0, '¿Desea guardar los cambios antes de salir?', 'Advertencia', MB_ICONINFORMATION or MB_YESNOCANCEL);
 case Res of
 IDYES: begin
         CanClose := True;
         ShowMessage('Se ha presionado SI');
        end;
 IDNO: begin
         CanClose := False;
         ShowMessage('Se ha presionado NO');
       end;
 IDCANCEL: begin
              CanClose := False;
              ShowMessage('Se ha presionado CANCEL');
           end;
  end;
end;

Como notarás, no sólo establezco que dicha constante sino que además, le indico que en la apariencia de cuadro de díalogo aparezca un globo de información.

Te sugiero que veas ayuda sobre el MessageBox() para que conozcas cada constante de parámetro y de salida. Como asi para entender mejor el funcionamiento de MessageBox().

Saludos,

[[Caral]]

Hola
Para que ya no tengas que estar pensando en los mensajes.
El programa (Constructor.zip) que esta aqui: http://www.terawiki.clubdelphi.com/D.../Herramientas/
Te ayudara a hacer los mensajes como los quieres, es simplisimo de usar y no se tiene que instalar ni nada, solo le das click y ya.
Una vez hecho el mensaje, copias el codigo (que genera el programa) y lo pegas en delphi, mas simple nada.
Saludos

[[Delphius]]

Y como alternativa, puedes emplear Message Dialog de la GExperts. Sitúa el cursor donde quieres poner el código de tu mensaje. Te vas a Message Dialog, le indicas el texto, las contantes.. OK y ¡Listo! ya tienes tu messagebox().

Saludos,

[[Caral]]

Hola
Esto lo unico que demuestra es que somos unos perezosos para hacer los mensajes a mano y nos buscamos alternativas, a que no.
Saludos

[jorgegetafe]

Gracias una vez mas (esta debe de ser la numero 1000) jajaja
De eso se trata, pensar más para hacer menos.

[jorgegetafe]

Vale ya le he pillado el truco a esto, no es tan dificil, pero una cosilla más, esto se puede hacer para que no cierren el programa de golpe? (evitar que presionen la x de cerrar el programa).

[[Delphius]]

El evento onCloseQuery está precisamente para evitar cerrar un formulario.
Cuando tu presionas en la X se dispara primero el evento onCloseQuery, si tiene asignado algún código en este evento se ejecutará. De otro modo se procede con onClose.

Es decir el orden es:

1). "Preguntar si tiene asignado onCloseQuery": que hacer al momento de recibir la orden de cierre.
2). "Preguntar si tiene asignado onClose": que hacer al momento del cierre.

Ahora, si lo que tu quieres es deshabilitar la X hay varias maneras de hacerlo. Una manera es seteando la propiedad BorderIncons en vacio.
Hay otros trucos para conseguirlo (que en este momento no recuerdo), pero en lo personal no prefiero ocultar dicho botón.

Saludos,

[jorgegetafe]

Lo único que quiero es que cuando se presione la X, salga el típico mensaje de ¿Quiere usted guardar antes de salir? y no que directamente se cierre el programa perdiendo todo...

Lo del mensaje se hacerlo, pero no se como utilizar el onCloseQuery.

[[Delphius]]

El código que te expuse son un ejemplo de como se usa en OnCloseQuery.

Lo que tu necesitas hacer es una combinación del onCloseQuery y OnClose.
Si lo que deseas es que el formulario se cierre independientemente si debe o no guardar los cambios deberás hacerlo empleando una variable pública o global que te permita decidir si debe guardar o no. CanClose Deberá ser True.

De modo que que debes hacer algo por el estilo:

Código Delphi [-]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var Rta: integer;
begin
 Rta := MessageBox(0, '¿Quiere usted guardar antes de salir?', 'Advertencia', MB_ICONQUESTION or MB_YESNO);
 if Rta = IDYES
    then DebeGuardar := True
    else DebeGuardar := False;

 CanClose := True; //De cualquier modo debe cerrarse. False para que no se cierre
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if DebeGuardar
     then GuardarCambios;
  Action := caFree; //caFree para que libere la memoria ocupada
end;

procedure TForm1.GuardarCambios;
begin
 // Lo que debas hacer...
end;

Espero haber sido más claro.
Saludos,

[jorgegetafe]

Vale gracias, esta tarde si tengo tiempo lo pondré ;-)

[[egostar]]

Empezado por jorgegetafe

Vale gracias, esta tarde si tengo tiempo lo pondré ;-)

Hola, puede ser que hoy amanecí muy sensible y me has de perdonar estimado jorgegetafe, pero me parece una respuesta no muy cordial de alguien que si se tomo el tiempo de contestar, pero como te digo, se me hace que no dormi bien.

Salud OS.

[jorgegetafe]

Empezado por egostar

Hola, puede ser que hoy amanecí muy sensible y me has de perdonar estimado jorgegetafe, pero me parece una respuesta no muy cordial de alguien que si se tomo el tiempo de contestar, pero como te digo, se me hace que no dormi bien.
Salud OS.

:-( Se lo he agradecido y le he dicho que en cuanto pueda lo probaré... ahora mismo no puedo... creo que no hago daño a nadie...

[[egostar]]

Empezado por jorgegetafe

:-( Se lo he agradecido y le he dicho que en cuanto pueda lo probaré... ahora mismo no puedo... creo que no hago daño a nadie...

Perdona como te dije, por supuesto que le agradeces y hasta ahi hubiese estado bien, pero eso de que si tienes tiempo lo pones es lo que me parece no tan cordial.

No me hagas caso, como te digo, amaneci muy susceptible. sea la paz.

Salud OS.