1 respuesta en este tema

[enecumene]

Aquí vamos a aprender cómo podemos crear nuestro propio MessageDLG con sus botones traducidos, empecemos:
 
Debemos agregar en el uses las unidades System.TypInfo y System.UITypes.
 
Creamos una constante con los captions de los botones traducidos:

delphi

const
    BotonesCaption: array[TMsgDlgBtn] of String = (
    'Sí', 'No', 'OK', 'Cancelar', 'Abortar', 'Reintentar', 'Ignorar', 'Todos', 'No a Todo',
    'Sí a Todo', 'Ayuda', 'Cerrar');

Declaramos las siguientes funciones:

delphi

function StrToMsgBtn(aStr:String):TMsgDlgBtn;
function MensajeDLG(const Msg: string; DLGCaption: string; DlgType: TMsgDlgType;
    Buttons: TMsgDlgButtons): Integer;

La función StrToMsgBtn de encarga de convertir un string en un valor enumerado:

delphi

function StrToMsgBtn(aStr:String):TMsgDlgBtn;
begin
  result := TMsgDlgBtn(GetEnumValue(TypeInfo(TMsgDlgBtn),aStr));
end;

Y la función MensajeDLG es donde hacemos la magia, mostrar la ventana modal con su mensaje:

delphi

function MensajeDLG(const Msg: string; DLGCaption: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons): Integer;
var
  i: Integer;
  dlgButton: TButton;
  CaptionIndex: TMsgDlgBtn;
begin
  with CreateMessageDialog(Msg, DlgType, Buttons) do begin
    Caption := DLGCaption;
    for i := 0 to ControlCount - 1 do
    begin
      if (Components[i] is TButton) then
      begin
        dlgButton := TButton(Components[i]);
        CaptionIndex := StrToMsgBtn('mb'+dlgButton.Name);
        dlgButton.Caption := BotonesCaption[CaptionIndex];
      end;
    end;
  Result := ShowModal;
  end;
end;

Su modo de uso sería:

delphi

if MensajeDLG('¿Seguro deseas cerrar esta aplicación?','Aviso',[mbYes,mbNo]) = 6 then
  Close;

Espero lo disfruten.

 

Saludos.

[Agustin Ortu]

Hola, gran aporte
 
Solo un pequeño comentario, que es una recomendacion
 
Si bien es correcto tener una funcion MessageDlg "generica", lo mas aprpoiado es armarse un set de funciones mas especificas
 
Fijense la sentencia

delphi

if MensajeDLG('¿Seguro deseas cerrar esta aplicación?','Aviso',[mbYes,mbNo]) = 6 then
  Close;

Tiene "cosas de mas". Por ejemplo, tengo que acordarme el = 6 que equivale a que el usuario eligio "Yes", tengo que pasar el conjunto de botones, incluir en el uses unidades donde estan las costantes definidas etc

 

Lo cierto es que si le estamos haciendo una pregunta al usuario, obtengamos tambien nosotros una respuesta Si/No --> un boolean

 

Entonces, lo logico seria tener una funcion por ej asi:

delphi

// muestra un cuadro de dialogo con un Titulo "Title", y mensaje "Prompt"
function PromptMsg(const Title, Prompt: string): Boolean;
 
// muestra un cuadro de dialogo con un Titulo "Title", y mensaje "Prompt". A Prompt se le aplica un Format(Prompt, Args)
function PromptMsg(const Title: string; const Prompt: string; const PromptArgs: array of const): Boolean;

De este modo simplificamos el codigo anterior a:

delphi

if PromptMsg('Aviso', 'Desea cerrar este programa?') then
  Close;

Luego es cuestion de seguir creando las distintas funciones que necesitamos, por ej: ErrorMsg, WarningMsg, InfoMsg, etc

 

Todas ellas estan implementadas usando la funcion que expone enecumene, pero nos sacamos de encima parametros aburridos y comparaciones "extrañas"