2 respuestas en este tema

[enecumene]

Muchos se preguntan si se puede dar formato a un MessageDlg, por ejemplo cambiar los colores de la letra y fondo, Pues sí es posible, hay muchas maneras de hacerlos, a continuación les presento una forma sencilla de hacerlo:

En un Button:

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  f: TForm;
begin
  f := Dialogs.CreateMessageDialog('HOLA MUNDO', dialogs.mtInformation, dialogs.mbOKCancel);
  f.Color := clBlue;
  f.Font.Color := clLime;
  if f.ShowModal = mrOk then
    ShowMessage('Se presionó OK')
  else
    ShowMessage('Se presionó Cancel');
end;

Resultado:



Saludos.

Si tenéis alguna duda por favor haced un hilo con gusto os ayudamos.

[JoAnCa]

Hola
Recien descubri este foro, y revisando me surge una pregunta con respecto a este hilo

Será Posible tambien, cambiarle el caption a los botones, es decir en lugar de "Cancel" poner "Cancelar" y en lugar de "OK" poner "Sí­", por ejemplo?

[enecumene]

Hola _jose_ y bienvenido al foro, para tener los MessageDlg en español sólo hay que modificar un archivo de Delphi, para la versión 7 (también vale en la 6) te vas al siguiente directorio: C:\Program Files\Borland\Delphi7\Source\Vcl y modificas el archivo Consts.pas buscas estas lí­neas:

SMsgDlgWarning = 'Warning';
SMsgDlgError = 'Error';
SMsgDlgInformation = 'Information';
SMsgDlgConfirm = 'Confirm';
SMsgDlgYes = '&Yes';
SMsgDlgNo = '&No';
SMsgDlgOK = 'OK';
SMsgDlgCancel = 'Cancel';
SMsgDlgHelp = '&Help';
SMsgDlgHelpNone = 'No help available';
SMsgDlgHelpHelp = 'Help';
SMsgDlgAbort = '&Abort';
SMsgDlgRetry = '&Retry';
SMsgDlgIgnore = '&Ignore';
SMsgDlgAll = '&All';
SMsgDlgNoToAll = 'N&o to All';
SMsgDlgYesToAll = 'Yes to &All';

Cambias los valores a español por ejemplo:

SMsgDlgYes = '&Sí­';
SMsgDlgCancel = 'Cancelar';
....

Luego copias el archivo modificado Consts.pas a la carpeta C:\Program Files\Borland\Delphi7\Lib y eliminas el compilado Consts.dcu (se creará otro automáticamente) y ya tendrás los botones modificados, recuerda que deberás hacer un BackUp antes de realizar cualquier cambio.

Saludos.