Por
Saiyine
el 0000-00-00 00:00:00 - Secciones: - Enlace permanente: 499
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 |
Otras entradas de la web que podrian interesarte:
. . .
. . .
. . .

. . .
. . .
Varios ejemplos de lo que buscaban visitantes recientes:
. . .
Página web ©2001-2011 Saiyine descargada en s, con 5910651 visitas en total, hoy (de un total de 0 previstas).
. . .