messagebox con botones en español

[ingmichel]

hola a todos, mi pregunta es sencilla, como puedo hacer que cuando haga un messagebox o dialog me aparezcan las opciones "yesno" en español o sea "si - no"

he intentado con esto pero no me sale:

MessageBoxEx(0,'desea continuar con la operacion ?', 'Advertencia',MB_YESNO + MB_ICONQUESTION,LANG_SPANISH );

gracias de antemano.

[[oscarac]]

yo tengo esta function donde tu mismo puedes crear tus botones y ponerle el texto que desees

Código Delphi [-]
function _Alert(const Msg: string; AType: TMsgDlgType; AButtons: TMsgDlgButtons; Captions: array of string): Integer;
var
unMsgDlg: TForm;
i: Integer;
dlgButton: TButton;
captionIndex: Integer;
begin
unMsgDlg := CreateMessageDialog(Msg,AType,AButtons);
captionIndex := 0;
for i := 0 to unMsgDlg.ComponentCount - 1 do
begin
  if (unMsgDlg.Components[i] is TButton) then
  begin
    dlgButton := TButton(unMsgDlg.Components[i]);
    if CaptionIndex > High(Captions) then Break;
    dlgButton.Caption := Captions[CaptionIndex];
    Inc(CaptionIndex);
  end;
end;
Result := unMsgDlg.ShowModal;
end;

y lo llamas asi

Código Delphi [-]
 
_Alert('No existen Vouchers Descuadrados',mtWarning,[mbOK, mbRetry],['Aceptar','Intentar de nuevo']);

[roman]

También puedes usar Application.MessageBox, que pone los textos de los botones en el mismo idioma que tenga el S.O.

// Saludos

[ingmichel]

muchisimas gracias, acabo de probar tu funcion y funciona perfecto, gracias nuevamente, bendiciones.

[[oscarac]]

Empezado por ingmichel

muchisimas gracias, acabo de probar tu funcion y funciona perfecto, gracias nuevamente, bendiciones.

de nada
estamos para apoyarnos....

[ingmichel]

Empezado por roman

También puedes usar Application.MessageBox, que pone los textos de los botones en el mismo idioma que tenga el S.O.

// Saludos

el problema es que el sistema operativo esta en ingles, la solucion que dio oscarac es la mas conveniente en mi caso, gracias de todas maneras.

[[Chris]]

Una solución más nativa es la que he proporcionado en mi blog, utilizando la misma API de Windows. Puedes leer sobre ella en este enlace.

Saludos,
Chris

[marcopinero]

Con tu permiso oscarac, quisiera mostrar tu función modificada por mí, pra que me funcionara:

Código Delphi [-]
function _Alert(const Msg: string; msgCaption: string; AType: TMsgDlgType;
    AButtons: TMsgDlgButtons; Captions: array of string): Integer;
var
  unMsgDlg: TForm;
  i: Integer;
  dlgButton: TButton;
  captionIndex: Integer;
begin
  captionIndex := 0;
  try
    unMsgDlg := CreateMessageDialog(Msg,AType,AButtons);
    unMsgDlg.Caption:= msgCaption;
    for i := 0 to unMsgDlg.ComponentCount - 1 do
    begin
      if (unMsgDlg.Components[i] is TBitBtn) then
      begin
        dlgButton := TButton(unMsgDlg.Components[i]);
        if CaptionIndex > High(Captions) then Break;
        dlgButton.Caption := Captions[CaptionIndex];
        Inc(CaptionIndex);
      end;
    end;
    Result := unMsgDlg.ShowModal;
  finally
    unMsgDlg.Free;
  end;
end;

La uso así:

Código Delphi [-]
if _Alert('¿Desea salir del sistema Zeus4Linux 1.0?','Responda',mtConfirmation,
    [mbYes, mbNo],['Sí','No']) = mrYes then...

[[oscarac]]

cualquier mejora es bienvenida