(Resolvido) como usar essa função?

[vms]

ola pessoal encontrei na net essa função que deixa uma caixa de messagem pessonalizada

o problema é que eu não to conseguindo usar, alguém pode dar uma dica?

Function Mensagem(Msg,Bt1,Bt2:String):Boolean;
 var
 I,K:Integer;
 F:TForm;
 begin
 K:=0;
 F:= createmessagedialog(Msg,mtconfirmation,[mbyes,mbno]);
 try
 for i:=0 to f.componentCount -1 do
 if f.components[i] is tbutton then
 with tbutton(f.components[i]) do
 case modalresult of
 mryes: Caption := Bt1;
 mrno: Caption := Bt2;
 end;
 f.caption := 'Mensagem do Sistema';
 K:=f.showmodal;
 finally
 if K = mryes then Result:=True
 else Result:=False;
 f.free;
 end;
 end;

[Micheus]

Primeiramente, vamos visualizar melhor este amontuado de linhas...:

Function Mensagem(Msg,Bt1,Bt2:String):Boolean;
var
  I,K:Integer;
  F:TForm;
begin
  K:=0;
  F:= createmessagedialog(Msg,mtconfirmation,[mbyes,mbno]);
  try
    for i:=0 to f.componentCount -1 do
      if f.components[i] is tbutton then
      with tbutton(f.components[i]) do
        case modalresult of
          mryes: Caption := Bt1;
          mrno: Caption := Bt2;
        end;
    f.caption := 'Mensagem do Sistema';
    K:=f.showmodal;
  finally
    if K = mryes then 
      Result:=True
    else 
      Result:=False;
    f.free;
  end;
end;

O que esta função faz é usar CreateMessageDialog para criar um form aos moldes das caixas de diálogos padrão, mas que viabiliza alterar o conteúdo dos componentes contidos nele (neste caso, o caption dos botões e o texto da mensagem). Ao ser mostrado o form e clicado em um dos botões o resultado de ShowModal será sempre mrYes ou mrNo. A resposta positiva é correspondente ao texto passado em Bt1, de modo que a função retorna True caso o Bt1 seja pressionado ou False se Bt2. Para usar:

if Mensagem('Confirma exclusão do cliente?', 'Confirmo', 'Não tenho certeza') then
begin
  // exclui o cliente....
end else
  ShowMessage('Voce ficou na dúvida e o cliente não foi excluído!');

parece que a finalidade básica desta função é a de evitar que sejam apresentadas as caixas de diálogo com o texto em inglês (é o que penso).

Abraços

[vms]

beleza Micheus

parece que a finalidade básica desta função é a de evitar que sejam apresentadas as caixas de diálogo com o texto em inglês (é o que penso).

sim, a finalidade é essa (pra mim)

valeu!

[Rodrigo Flores]

Bom dia,

Não vejo a necessidade de criar uma função para mostrar mensagens ao usuário, visto que o Delphi possui o Application.MessageBox, que é possível alterar o caption do form, a mensagem do corpo e os botões possuem seu caption em português (Ok, Cancela, Sim, Não), podendo ser tratado da mesma forma que os demais. Procure no Help do Delphi por MessageBox.

[]'s

[vms]

Bom dia,

Não vejo a necessidade de criar uma função para mostrar mensagens ao usuário, visto que o Delphi possui o Application.MessageBox, que é possível alterar o caption do form, a mensagem do corpo e os botões possuem seu caption em português (Ok, Cancela, Sim, Não), podendo ser tratado da mesma forma que os demais. Procure no Help do Delphi por MessageBox.

beleza, disso eu não sabia.