Fórum Como mudar o Caption dos botoes de uma Messagedlg ? #186354

ButtonNames[mbOK] := ´Desejo o Teste´;
ButtonNames[mbCancel] := ´Não desejo o teste´;

function MessageTest(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; X, Y: Integer): Integer;
var
  Sum: Integer;
begin
  with CreateMessageDialog(Msg, DlgType, Buttons) do
    try
      if X >= 0 then Left := X;
      if Y >= 0 then Top := Y;
      if (Y < 0) and (X < 0) then Position := poScreenCenter;
      with TButton(FindChildControl(´OK´)) do
      begin
        Caption := ´Desejo o Teste´;
        Sum := Canvas.TextWidth(Caption) + 32;
        Width := Sum;
      end;
      with TButton(FindChildControl(´Cancel´)) do
      begin
        Caption := ´Não desejo o Teste´;
        Left := Sum + 32;
        Width := Canvas.TextWidth(Caption) + 32;
        Inc(Sum, Width);
      end;
      Inc(Sum, 64);
      if Width < Sum then Width := Sum;
      Result := ShowModal;
    finally
      Free;
    end;
end;

  MensagemTeste(´teste´, mtConfirmation, mbOKCancel, 0, -1, -1, ´´);