Y
yf9696
Unregistered / Unconfirmed
GUEST, unregistred user!
程序中需建立100多个anygrid控件，如果动态建立导入excel文件时间太长，希望程序运行提前建立好100多个anygrid控件，在需要时调用 ( 积分: 100 )<br />程序建立100多个anygrid控件如下，现在的问题是如何保留住这100个anygrid控件到form中，以后就直接运行啦？
procedure TForm1.Button1Click(Sender: TObject);
var myanygrid:array[1..10] of Tanygrid;
i:integer;
begin
for i:=1 to 2 do
begin
myanygrid:=Tanygrid.create(self);
myanygrid.parent:=form1;
myanygrid.Left:=4;
myanygrid.top:=10;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var myanygrid:array[1..10] of Tanygrid;
i:integer;
begin
for i:=1 to 2 do
begin
myanygrid:=Tanygrid.create(self);
myanygrid.parent:=form1;
myanygrid.Left:=4;
myanygrid.top:=10;
end;
end;
