Buscar por:

Funcao que traduz o messagedlg

Código

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')