Buscar por:

Traduzindo o MessageDlg

Código

1º Sobre escreva o metodo

function MessageDlg(const Mensagem : String; aDlgType : TMsgDlgType; aBotao : TMsgDlgButtons) : Word;overload;

2º a Definição do novo Metodo 

function TForm1.MessageDlg(const Mensagem: String; aDlgType: TMsgDlgType; aBotao: TMsgDlgButtons): Word;

var

  Form : TForm;

begin

  Form:= CreateMessageDialog(Mensagem,aDlgType, aBotao);

  (Form.FindComponent('Yes') as TButton).Caption:= 'Sim';

  (Form.FindComponent('No') as TButton).Caption:= 'Não';

  Result:= Form.ShowModal;

end;

3º a chamada do novo metodo

MessageDlg('Mensagem',mtwarning,[mbyes,mbno]);