Mensaje antes de salir

[[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.

[jorgegetafe]

Wueno un par de dudas.

Arriba, en la definición de tipos he tenido que poner esto, porque sino decia que ambas funciones no estaban declaradas, no se si estará bien hecho:

Código Delphi [-]
 
PROCEDURE FormCloseQuery(Sender: TObject; var CanClose: Boolean);
PROCEDURE FormClose(Sender: TObject; var Action: TCloseAction);

No me dejaba poner el tform1 delante.

Luego he puesto este codigo:

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
      Guardar1Click(Sender);
    Action := caFree; //caFree para que libere la memoria ocupada
  END;

Y el programa cuando le doy a cerrar no me hace absolutamente nada. ¿Me podeis ayudar? gracias.

[[Lepe]]

Ya tienes el código, ahora solo tienes que enlazarlo a la ventana. Quiero decir, ahora mismo tienes creados dos procedimientos, pero hace falta decirle que responda cuando se quiere cerrar el form.

Haz un clic sobre la ventana (donde no haya paneles ni botones), ve al inspector de objetos, pestaña eventos, y allí busca el evento FormClose y FormCloseQuery, dale un clic a la lista y elige los que tú has definido para ellos.

Saludos

[jorgegetafe]

Ok ya está hecho, ahora ya tiene más nivel jejeje. gracias.