[firebase-br] mudar propriedades dee componentes criado dinamicamente

João Borges Claudino Junior joao.claudino em lanweb.com.br
Sex Fev 11 13:16:17 -03 2005


pessoal depois de criar componetes dinamicamente no meu formulário,
quero depois poder acessar suas propriedade, com faço isso?
estou criando eles assim:

procedure
TfrmPesquisaAv.cria_chk(inttop,intleft:integer;strname,strcaption:string;tag
:integer);
var
 chk:TcheckBox;
begin
  chk:=TcheckBox.Create(self);
  chk.visible:=false;
  chk.parent:=self;
  chk.left:=intleft;
  chk.top:=inttop;
  chk.name:=strname;
  chk.Caption:=strcaption;
  chk.font.Color:=clBackground;
  chk.Color:=$00F0F0F0;
  chk.Font.Style:=[fsBold];
  chk.visible:=true;
  chk.Width:=250;
  chk.Tag:=tag;
end;


depois tento acessar eles assim:
 for cont:=0 to frmPesquisaAv.ComponentCount-1 do
  begin
    if ((frmPesquisaAv.Components[cont] is TCheckBox)and
       ( leftstr(inttostr(frmPesquisaAv.Components[cont].Tag),1)='1' )) then
    begin
      ShowMessage('chk');
//      chk_checado(frmPesquisaAv.Components[cont],true);
//      frmPesquisaAv.com
    end;
  end;

o problema é que quero mudar propriedades relativas a um certo tipo de
componemte mas na ultima a cima, não dá certo
alguém sabe a soulução?








Mais detalhes sobre a lista de discussão lista