mit create erstelltes Panel steuern

[XXcD]

Hab alles gelöst

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;

War eigentlich nicht schwer man muss nur wissen wie es geht.
Und ihr habt mir wirklich weitergeholfen Und einen guten Rutsch ins neue jahr


Jetzt muss ich nur noch rausbekommen wie ich alle Tops der anderen Panels um 50 Pixel verringer.