messagebox con botones en español

[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