procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
        case MessageDlg('¿Grabar cambios en el texto?', mtWarning, [mbYes, mbNo, mbCancel], 0) of
        6 : GrabarEntrada;
        7 : Canclose:=true;
        2 : Canclose:=false;
end;
end;

En vez del procedimiento GrabarEntrada, hay que poner el codigo para grabar si hay algo que grabar o lo que quieras.

rc (19/05/2004, 15:39) Como puedo cambiar el texto de los botones de la funcion MessageDlg a espanol. Gracias

Saiyine (19/05/2004, 22:49) Cambiarle el texto a los botones de los messagedlg tiene truco, y es que estos dialogos no son tales sino forms normales y corrientes que el delphi crea dinamicamente cuando son necesarios, así­ que hay que decirle de alguna manera que cuando cree el siguiente, lo haga con los botones que nosotros queramos. No tengo ningun código que haga tal cosa ahora mismo por aqui, así­ que he mirado en el google y he cogido un par, a ver si te sirven. El primero es una función bastante bien documentada que encapsula el dialogo y le puedes pasar los nombres de los botones que tu quieras (en el ejemplo, 1 y 2), y el segundo es algo mas complejo, pero tambien cumple su función. De nada :D