Panels in einer Scrollbox anzeigen lassen

[Christian18]

Hallo,

vielen dank für die Hilfe erst mal!!! Das hat aber irgendwie gar nichts mehr mit meinem Code zu tun. Jetzt weiß ich ja immer noch nicht was ich falsch gemacht habe. Wie muss ich denn meinen Code abwel, das die Top geschichte auch funktioniert. Ich habe an meinem Code jetzt nochmal ein bisschen gearbeitet. Aber das mit den Top funktioniert immernoch nicht. Jetzt funktioniert aber die Beschriftung richtig.

Hier mein Code:

Delphi-Quellcode:

procedure TForm1.ShowPictures(a : Integer);
  var p : Array of TPanel;
      r : Integer;
      w : Integer;
      h : Integer;
      j : Integer;
begin
  SetLength(p, a);

  r:=30;
  w:=Round((ScrollBox1.Width - 3 * r) / 2);
  h:=Round((ScrollBox1.Height - 3 * r) / 2);

  for j:=1 to a do
    begin
      p[j - 1]:=TPanel.Create(nil);

      p[j - 1].Width:=w;
      p[j - 1].Height:=h;

      if j mod 2 = 0 then
        begin
          p[j - 1].Left:=2 * r + w;
        end
      else
        begin
          p[j - 1].Left:=r;
        end;

      p[j - 1].Parent:=ScrollBox1;
    end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  ShowPictures(4);
end;