Buscar por:

Função para traduzir mbyes, mbno do messagedlg

Código

Baseado numa procedure que encontrei no Planeta Delphi, modifiquei para esta função que retorna valor true no casa de pressionar SIM e false se pressionar NÃO. Traduz os botões mbYes e mbNo de uma forma bem simples. 

Exemplo: if MensagemDLG('Deletar Registro) = true then

{comandos}

function MensagemDlg(txtMsg:String):boolean;

var Mensagem:TForm;

begin

{Cria a janela de mensagem}

Mensagem:=createmessagedialog(txtMsg,MtConfirmation,[MbYes,MbNo]);

{Trazur o titulo da mensagem}

Mensagem.Caption:='Confirmação';

{Traduz os botões da caixa de mensagem}

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

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

{Exibr a caixa de mensagem}

Mensagem.ShowModal;

{Verifica aqul botão foi pressionado}

If Mensagem.ModalResult=MrYes then

result:=true;{Botão Sim}

If Mensagem.ModalResult=MrNo then

result:=false;

{Botão Não}

end;