Contador

[marvazoler 0]

Olá galera beleza?

 

Seguinte:

 

Tenho vários painels em me form, e não é todos que ficam visible, o que eu gostaria de saber

é como contar os paineis que ficar visibles, ou seja, mostra para o usuário, dos

100 paineis, por exemplo 50 estão visibles, tem como?

 

Desde já agradeço

[kadu_17 3]

como no titulo faça uma variavel contador pra isso =\

 

qual a dificuldade???

[marvazoler 0]

mas como se referir o TPanel, para verificar no form quais estão visible ou não?

[cfesta 0]

Tente fazer o seguinte:

 

var
  i, j: integer;
begin
  j := 0;
  for i:=0 to ComponentCount -1 do
    begin
      if Components[i] is TPanel then
      	if (Components[i] as TPanel).Visible then
          Inc(j);
    end;
end;

[marvazoler 0]

Meu amigo, obrigado pela atenção, só mais uma coisa

 

como apresentar no form essa informação?

 

Ou seja quero dizer para o usuário em números, a quantidade de painel visivel!!

 

Desde já agradeço

[cfesta 0]

Existem muitas formas, não sei como é o seu sistema:

 

  MessageDlg('O número de painéis visíveis é '+IntToStr(j)+'.',  mtInformation, [mbOK], 0); //Mensagem na tela informando a quantidade
  label1.Caption := IntToStr(j); //Atribui o valor a um label qualquer
  Edit1.Text := IntToStr(j); //Atribui o valor a uma caixa de texto