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数组，控件是一个选项卡。我希望像一个Android画廊一样显示。但这给了我一个错误访问冲突。

Answer 1

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

obj.Create;

你必须写：

obj := TSomeClass.Create;

在您的情况下，您首先需要分配数组：

SetLength(img, Dest.Count-2);

然后在你写的循环中：

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

实例化图像。

TImage数组（Delphi Android）

1 个答案: