komponenten erzeugen

[vlees91]

soll ich jetzt sagen, wie das geht oder was meinst du damit

wenn ja:

so müsste es gehen:

Code:

procedure TForm1.Create(...);
var Karten1:array[1..7] of TLabel;
    a,b:Integer;
begin
  fo a:=1 to 3 do
    for b:=1 to 7 do
    begin
      if a:=1 then
        Karten1[b] := TLabel.Create(Form1);
//      elseif a:=2 then
//        Karten2[b] := TLabel.Create(Form1)
//      elseif a:=3 then
//        Karten3[b] := TLabel.Create(Form1);
      with Karten1[b] do begin
        Parent := Form1;
        Height := 32;
        Width := 128;
        Caption := 'Label';
        Left := 50;
        Top := 50;
      end;
    end;
end;