Fórum identificando Componente #286246
27/06/2005
0
tenho a seguinte situação:
altero a cor das dos labels de minha aplicação ao carregar o programa, atribui na propriedade Tag valores para diferenciar os que ficarão de uma cor e os outros com outra, tipo: os que estiverem com Tag = 1 ficarão verde e os que estiverem com tag = 0 ficaram vermelhos. Gostaria de saber como faço uma function ou procedure para alterar a propriedade font.color dos labels em tempo de execução uma vez que eu não sei qual o nome dos labels.
Tentei fazer assim:
For i := 0 to FPrincipal.ComponentCount - 1 do
if (FPrincipal.Components[i] is TLabel) and (FPrincipal.Components[i].Tag = 1) then
FPrincipal.Components[i].Font.Color := ClYellow
else
FPrincipal.Components[i].Font.Color := ClRed
O problema é quando tento atribuir a propriedade Font.color o delphi não aceita pois ele não sabe que o componente tem a determinada propriedade.
Espero que tenha sido claro, e agradeço a quem poder me ajudar
Nilson Oliveira
Belém - PA
Nilsonoliveiratec
Curtir tópico
+ 0Posts
29/06/2005
Caninha51
For i := 0 to FPrincipal.ComponentCount - 1 do if (FPrincipal.Components[i] is TLabel) and (FPrincipal.Components[i].Tag = 1) then TLabel(FPrincipal.Components[i]).Font.Color := ClYellow else TLabel(FPrincipal.Components[i]).Font.Color := ClRed
Falow
caninha51
Gostei + 0
29/06/2005
Emerson Nascimento
for i := 0 to FPrincipal.ComponentCount - 1 do
if (FPrincipal.Components[i] is TLabel) then
begin
if FPrincipal.Components[i].Tag = 1
then TLabel(FPrincipal.Components[i]).Font.Color := ClYellow
else TLabel(FPrincipal.Components[i]).Font.Color := ClRed;
end;Gostei + 0
29/06/2005
Caninha51
Na verdade nem prestei atenção na logica dele, vi apenas que estava faltando o typecast! :)
Valew!
caninha51
Gostei + 0
29/06/2005
Emerson Nascimento
nilson, verde é clGreen e não clYellow
:D
Gostei + 0
30/06/2005
Caninha51
Vai ver ele eh dautônico!heheh...
:lol: :lol:
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)