是这样吗?
var
Form1: TForm1;
i: Integer;
j: Integer;
k: integer;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
with TThumbCtl.Create(Self) do
begin
parent:=form1;
Name:='ThumbCtl1'+inttostr(i);
i:=i+1;
width:=127;
height:=127;
left:=j;
top:=k;
j:=j+150;
if j>640 then
begin
j:=0
k:=k+150;
end;
end;
end;
其中:TThumbCtl是刚引进的ACTIVEX控件。