Question

Delphi新手问题，关于动态建立。

procedure TForm1.FormCreate(Sender: TObject);
var img:TPaintBox;//定义
begin
img:=TPaintBox.Create(Self);//创建
img.Parent:=Panel1;
end;
//==============以上部分非问题===================================
//我有一个panel上面想动态创建数个 PaintBox，就是一个排在另一个后面
//然后整齐的排成一个长5宽5一共25个paintBox控件
//问：如何创建多个动态控件？ 用for循环么？

Answer 1

var img:TPaintBox;//定义
i:integer;
begin
for i:=1 to 10 do
begin
img:=TPaintBox.Create(Self);//创建
img.Parent:=Panel1;
img.Left:=50 * i;
img.width:=50
end;
end;