Propriedade TAG

Question

Alguem pode me ajudar com isso...to tentnado usar um componente da JEDI chamado outlookbar, bem nao sei como usalo direito, mas ja percebi q pra atribuir funcoes aos botoes tenho q usar TAG, s� q nao ...

Afarias · Answer

Essa propriedade n�o serve pra nada -- (e serve pra muita coisa! ;))

A propriedade TAG n�o tem qualquer fun��o espec�fica ... � apenas uma �vari�vel� inteira, associada ao componente, q vc pode usar para e como quizer.

T+

Newbie · Answer

Pode me dar um exemplo de como usar?...

Nildo · Answer

As vezes voc� precisa criar em tempo de execu��o uns 100 bot�es. Ent�o como voc� vai saber identificar cada bot�o? Voc� deve usar a TAG para isso. Exemplo:

procedute TForm1.BotaoClick( Sender: TObject );
begin
   ShowMessage( IntToStr( TButton( Sender ).Tag ) );
end;

procedure TForm1.CriaBotoes;
var
   nAux: Integer;
begin
   for nAux := 1 to 100 do
   begin
      with TButton.Create( Form1 ) do
      begin
         Parent  := Form1;
         Caption := �Clica!�;
         name    := �botao� + IntToStr( nAux );
         Tag     := nAux;
         OnClick := BotaoClick;
         Left    := nAux * 50;
      end;
   end;
end;

F�rum Propriedade TAG #237873