Case Visible of - label1, label2, label3: showmessage

Question

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 tradic...

Beppe · Answer

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;

Valdirlscosta · Answer

Legal, obrigado.Valdir[quote:ce7baf9a13=�Ataliba�]Primeiro mude a propriedade Tag destes lab�is para um valor diferente de 0.[code:1:ce7baf9a13]for I := 0 to ComponentCount - 1 do  if Components&#91;I&93;.Tag <> 0 then    (Components&91;I&93; as TLabel).TControl := False;[/code:1:ce7baf9a13][/quote:ce7baf9a13]...

F�rum Case Visible of - label1, label2, label3: showmessage #194457