Case Visible of - label1, label2, label3: showmessage

Delphi

12/11/2003

olá amigos, preciso de ajuda, é o seguinte:

tenho 5 labels e no final do código gostaria de verificar se eles estão visiveis, caso sim passe para visivel = false... não gostaria de fazer do modo tradicional if label.visible then label.visible := false;

Gostaria de fazer mais ou menos assim:

Case Visible of
Label1:
Label1.Visible := False;
Label2:
Label2.Visible := False;
end;

Obrigado.


Valdirlscosta

Valdirlscosta

Curtidas 0

Respostas

Beppe

Beppe

12/11/2003

Primeiro mude a propriedade Tag destes labéis para um valor diferente de 0.

for I := 0 to ComponentCount - 1 do
  if Components[I].Tag <> 0 then
    (Components[I] as TLabel).TControl := False;



GOSTEI 0
Valdirlscosta

Valdirlscosta

12/11/2003

Legal, obrigado.

Valdir


Primeiro mude a propriedade Tag destes labéis para um valor diferente de 0. 
for I := 0 to ComponentCount - 1 do
  if Components[I].Tag <> 0 then
    (Components[I] as TLabel).TControl := False;



GOSTEI 0
POSTAR