Variablen in Komponentennamen

[quendolineDD]

Dynamisch zum Beispiel so erstellen (sieht lsutig aus)

Delphi-Quellcode:

var
  i: Integer;
begin
  SetLength(ShapeArray, 10);
  for i := 0 to High(ShapeArray) do
  begin
    ShapeArray[i] := TShape.Create(Self);
    TShape(ShapeArray[i]).Name := 'Shape' + IntToStr(i);
    TShape(ShapeArray[i]).Visible := TRUE;
    TShape(ShapeArray[i]).Height := 10;
    TShape(ShapeArray[i]).Width := 10;
    TShape(ShapeArray[i]).Left := 10 * i;
    TShape(ShapeArray[i]).Top := 10 * i;
    TShape(ShapeArray[i]).Shape := stRectangle;
    TShape(ShapeArray[i]).Brush.Color := clBlue;
    TShape(ShapeArray[i]).Parent := Self;
    TShape(ShapeArray[i]).Show;
  end;
end;

Sind dann von links oben nach rechts unten diagonal angeordnet.