当然有了。
var fedit:array of Tedit;
i:integer;
begin
setlength(fedit,96);
for i:= 0 to 95 do
begin
fedit[i]:=Tedit.create(self);
fedit[i].parent:=panel1;
fedit[i].left:=
fedit[i].top:=
fedit[i].width:=
fedit[i].height:=
end;
end;
剩下的就看你自己了
var fedit:array of Tedit;
i:integer;
begin
setlength(fedit,96);
for i:= 0 to 95 do
begin
fedit[i]:=Tedit.create(self);
fedit[i].parent:=panel1;
fedit[i].left:=
fedit[i].top:=
fedit[i].width:=
fedit[i].height:=
end;
end;
剩下的就看你自己了
解决方案 »
- 点击按钮触发的消息问题
- 给treeview中的某个节点添加子节点,如果同名的子节点已存在则提示错误,该怎么做?
- 求助!通过字符串中的分界符,把一列分为多列!
- SQL:怎么样取表中的第一条记录
- 一个小问题,帮忙解决一下。谢谢大家了。
- ?改变状态栏颜色产生的问题!!
- DELPHI 函数变量无法传递
- <2002-10-13 12:41:07Delphi6注册机>请OpenWork() DelphiFancier(Gordon) approach() 进来领分
- 如何增加表的记录数? paradox7 的表只能纪录945条纪录,有没有办法增加?
- 我的RichEdit出了问题,帮忙看一下
- 我做个一个小软件,类似冰河软件,升级了,上次不知大家下载了没有。升级项目如下:
- 谁给我一份FileSystemObject的资料!!
不熟悉delphi,就请不要说delphi不行
var
ed: ^TEdit (只声明一个)
i: integer;
begin
for i:= 0 to 95 do
begin
ed :=Tedit.create(self);
ed^.Parent := ...
....
ed^ := nil;
end;end;
我的方法:
先在窗体把96个edit放好,定义一procedure:
procedure AssignEdit(edits:array of TEdit);//把窗体上的EDIT与Fedt数组对应procedure TForm.assignEdit(edits: array of TEdit);
var
i:integer;
j:integer;
count:integer;
begin
count:=-1;
for i:=0 to 7 do
begin
for j :=0 to 11 do
begin
count:=count+1;
Fedt[i,j]:=edits[count];
end;
end;
end;再在FormCreate中用:
AssignEdit([edit1,edit2,edit3,edit4,edit5,edit6,edit7,edit8,edit9,edit10,
edit11,edit12,edit13,edit14,edit15,edit16,edit17,edit18,edit19,edit20,
edit21,edit22,edit23,edit24,edit25,edit26,edit27,edit28,edit29,edit30,
edit31,edit32,edit33,edit34,edit35,edit36,edit37,edit38,edit39,edit40,
edit41,edit42,edit43,edit44,edit45,edit46,edit47,edit48,edit49,edit50,
edit51,edit52,edit53,edit54,edit55,edit56,edit57,edit58,edit59,edit60,
edit61,edit62,edit63,edit64,edit65,edit66,edit67,edit68,edit69,edit70,
edit71,edit72,edit73,edit74,edit75,edit76,edit77,edit78,edit79,edit80,
edit81,edit82,edit83,edit84,edit85,edit86,edit87,edit88,edit89,edit90,
edit91,edit92,edit93,edit94,edit95,edit96]);
小弟先前问题没提清楚,在此道歉
但,有更好的方法吗?