Y
yf9696
Unregistered / Unconfirmed
GUEST, unregistred user!
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;
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;