Fórum Quantidade de componentes #335659

procedure TForm1.Button1Click(Sender: TObject);
var
  iI         : integer;
  iVisible : integer;
begin
  iVisible := 0;

  for iI := 0 to ComponentCount -1 do
   if Components[iI] is TControl then
    if TControl(Components[iI]).Visible then
     inc( iVisible );

  showmessage( ´Componentes visiveis: ´ + inttostr( iVisible ) );
end;