TImage数组()

Question

procedure TForm1.controlClick(Sender: TObject);
var
  i: Integer;
begin
  for i := 2 to Dest.Count-1 do
  begin
    img[i-2].Create(Form1);
    with img[i-2] do begin
      Parent:= Panel1;
      Width:= 100;
      Height:= 150;
      Top:= 10;
      Left:= (i-2)*100;
    end;
  end;
end;

img类型是TImage数组，控件是选项卡。我想要时间来展示像一个机器人画廊。但这给了我错误的访问权限。

Answer 1

这看起来像是创建对象时的典型错误。而不是

obj.Create;

你必须写：

obj := TSomeClass.Create;

在这种情况下，首先需要分配数组：

SetLength(img, Dest.Count-2);

然后在循环中你写：

img[i-2] := TImage.Create(Form1);

实例化图像。