Mensaje antes de salir

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