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;