Delphi dicas

Funcao que traduz o messagedlg

Esta função auxilia na tradução do tão usado messagedlg, é de facil entendimento e muito util. veja:



declara-se em public a função



function mensagem(copro: string) : integer;



depois



cria-se a função



function mensagem(copro: string) : integer;

var

botao : integer;

mensagem : TForm;

begin

        mensagem := CreateMessageDialog(''+copro+'',mtconfirmation, [mbyes, mbno]);

        (mensagem.FindComponent('YES')as TButton).Caption := 'Sim';

        (mensagem.FindComponent('NO')as Tbutton).Caption := 'Não';

        botao := mensagem.ShowModal;

        result := botao;

end;





modo de usar



if mensagem('texto qualquer') = idyes then

begin

        showmessage('botao sim apertado');

end else

showmessage('botão não apertado')

por : Klerysson