Mensaje antes de salir

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