Also bei mir geht das, aber nur, wenn ich dort noch ein bissl was Wichtiges einfüge/anpasse...
Code:
[b]procedure[/b] TForm1.FormCreate(Sender: TObject);
[b]var[/b] i : Byte;
[b]begin[/b]
[color=red]SetLength(Panel, uebergabe);[/color]
[b]for[/b] i := 1 [b]to[/b] uebergabe [b]do begin[/b]
Panel[i[color=red] - 1[/color]] := TPanel.Create(self);
[b]with[/b] Panel[i [color=red]- 1[/color]] [b]do begin[/b]
parent := self;
top := 100;
left := 25 + ((i - 1) * 35);
height := 33;
width := 33;
caption := IntToStr(i);
[b]end;[/b]
[b]end;[/b]
[b]end;[/b]
und dann noch ein bissl (rück)optimieren - da ja ein dynamische Array bei 0 beginnt und nicht bei 1.
Code:
[b]procedure[/b] TForm1.FormCreate(Sender: TObject);
[b]var[/b] i : Byte;
[b]begin[/b]
[color=red]SetLength(Panel, uebergabe);[/color]
[b]for[/b] i := [color=blue]0[/color] [b]to[/b] uebergabe [color=blue]- 1[/color] [b]do begin[/b]
Panel[[color=blue]i[/color]] := TPanel.Create(self);
[b]with[/b] Panel[[color=blue]i[/color]] [b]do begin[/b]
parent := self;
top := 100;
left := 25 + ([color=blue]i[/color] * 35);
height := 33;
width := 33;
caption := IntToStr(i [color=blue]+ 1[/color]);
[b]end;[/b]
[b]end;[/b]
[b]end;[/b]
ach ja - nicht vergessen: in Uses muß natürlich auch die ExtCtrls mit drin sein.