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

Delphi

10/05/2004

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

sabe se tal objeto pertece ao Container em questão ? :shock:


Kristian

Kristian

Curtidas 0

Respostas

Tatuweb

Tatuweb

10/05/2004

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:


GOSTEI 0
POSTAR