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