Como pegar a qtd de objetos em 1 TPanel ou TGroupBox ?

Question

Como pegar a qtd de objetos em 1 TPanel ou TGroupBox ?sabe se tal objeto pertece ao Container em quest�o ? :shock:...

Tatuweb · Answer

Fiz uma function que deve resolver o seu problema.

Na se��o private declare

function CompsParent (Componente: TComponent): Word;

em seguida implemente a fun��o

function TForm1.CompsParent (Componente: TComponent): Word;
var
  i: Word;
begin
  Result := 0;
  for i := 0 to ComponentCount - 1 do
  begin
    if Components[i].GetParentComponent = Componente then Result := Result + 1;
  end;
end;

Suponhamos que vc queira exibir em um label o n�mero de objetos de um TPanel chamado Panel1, ent�o use a fun��o assim:

Label1.Caption := IntToStr (CompsParent (Panel1));

:wink:

F�rum Como pegar a qtd de objetos em 1 TPanel ou TGroupBox ? #231238