Silvio, tudo bom? Não é nada se case não, o problema é que tenho de manipular 260 label, cansa fazer coisas repetitivas. Se houver uma maneira de fazer uma linha, é melhor do que fazer em duas. Entende? MAs já solucionei o caso com uma function que estou elaborando com a ideia que o Alisson passou.
Blz. Silvio Clecio escreveu: > > > Em 23/7/2009 16:38, EmbarcaDelphi escreveu: > > ... Eu > > preciso setar uma Tag e ele disparar a cor, pois estou usando a Tag com > > referência de outros componentes. > > Não entendi o que você quer mudar, se é a cor da fonte ou do label, mas > posso garantir que isso aí não da muito trabalho, da pra fazer com > if..then..else; case..of; dentre outros, vou opinar com o case: > > uses > Graphics; > > Mudar cor da fonte: > ------- > case Label.Tag of > ..0: Label.Font.Color := clRed; (remova os "..") > ..1: Label.Font.Color := clGreen; > . > . > . > ..n: Label.Font.Color := cln...; > end; > ------- > > Mudar cor do Label: > ------- > Label.ParentColor := False; > Label.Transparent := False; > case Label.Tag of > ..0: Label.Color := clRed; > ..1: Label.Color := clGreen; > . > . > . > ..n: Label.Color := cln...; > end; > ------- > > Estou sem o Delphi agora para testar se é ParentColor mesmo -- a > propriedade que você define para False para o Label não herdar a cor do > Parent dele (o form, panel, tabsheet...). > > Boa sorte brother. > > ps1. Caso queira um OnTagChange é só postar ;-) . > ps2. Caso queira um label tipo semáforo, capaz de já ter isso pronto, e > na jvcl (<-- percebi que você usa jedi -- melhor suite de componentes > Delphi que já vi -- em outros emails). > -- > []'s, Silvio Clécio > --- > Linux User: #481900 > Gmail, GTalk: silviop...@gmail.com <mailto:silvioprog%40gmail.com> > E-mail, Y! Messenger: silviop...@yahoo.com.br > <mailto:silvioprog%40yahoo.com.br> > BlogSite: http://silvioprog.blogspot.com/ > <http://silvioprog.blogspot.com/> > BlogSpot: http://silvioclecio.blogspot.com/ > <http://silvioclecio.blogspot.com/> > VirtualDriver: http://silvioprog.4shared.com/ > <http://silvioprog.4shared.com/> > °oO| Seja livre, use Linux! |Oo° > > __ > . > >
