Código
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';
(Form.FindComponent('Cancel') as TButton).Caption:= 'Cancelar';
if adlgtype=mtwarning then form.Caption:='Atenção';
if adlgtype=mtconfirmation then form.Caption:='Confirmação';
if adlgtype=mterror then form.Caption:='Erro';
if adlgtype=mterror then form.Caption:='Erro';
Result:= Form.ShowModal;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009