ComponentCount

[XXcD]

Ahh ich hab jetzt hier was rausgefunden:
http://www.delphi-forum.de/topic_Pro...ee302ef5cc7cbf

Ich muss nicht ComponentCount sondern ControlCount nehmen.

Mich würde jetzt noch interessieren, warum das jetzt nicht mehr mit Componentcount funktioniert?

Ich bin mir zu 100% sicher, dass das mal funktioniert hat.
Und zwar so:

Delphi-Quellcode:

procedure TForm1.GetObjectByName(Sender: TObject); 
  var 
      i: Integer; 
  begin 
      for i := ScrollBox1.ComponentCount - 1 downto 0 do 
      begin 
            if Scrollbox1.Components[i] is TPanel then 
      if TPanel(Scrollbox1.Components[i]).Name =  (Sender as TPanel).Parent.Name then begin 
      if TPanel(Scrollbox1.Components[i]).AutoSize = false then begin 
        TPanel(Scrollbox1.Components[i]).AutoSize:=true; 
      end 
      else 
      begin 
        TPanel(Scrollbox1.Components[i]).AutoSize:=false; 
       TPanel(Scrollbox1.Components[i]).Height:=17; 
      end; 
      end; 
      end; 
  end;