Delphi的控件能有VB那样的控件数组么????

chenfeng3000 2003-01-28 05:26:43
Delphi的控件能有VB那样的控件数组么????
再问一句怎样动态生成控件呢,
或是动态生成控件数组呢???
...全文
30 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
Eastunfail 2003-01-28
  • 打赏
  • 举报
回复
HOHO~~还是习惯所有的控件的同一个事件指向同一个过程~~~然后再在事件中根据Sender来判断。
johnmack 2003-01-28
  • 打赏
  • 举报
回复
cg1120(代码最优化-§新年祝福你,好运伴着你§)
写的很清楚了!
ly_liuyang 2003-01-28
  • 打赏
  • 举报
回复
可以有components[]
componentcount来变通使用
加上As, Is, Tag等就可以达到一样的效果

cg1120 是个很好的例子

复杂的就自己定义一个继承自TList的类,这个最强了
z33 2003-01-28
  • 打赏
  • 举报
回复
可以啊,比如 tedit of array声明就可以
生态生成的话
[动态生成控件]
Var
F:TForm //声明一个TForm类的对象F
B:TButton //声明一个TButton类的对象B
begin
F:=TForm.Create(self); //创建TForm
F.show; //显示出来
B:=TButton.Create(self); //创建
B.Parent:=Form1; //定义B显示在Form1中,Parent:=是指B所在父位置。
//也可以是 B.Parent:=Panel1 ,放到Panel1上。
end;
Billy_Chen28 2003-01-28
  • 打赏
  • 举报
回复
var
e:array of TEdit;
procedure TForm1.FormCreate(Sender: TObject);
var
i,n:integer ;
begin
n:=10;
setlength(e,n);
for i:=0 to n-1 do
begin
e[i]:=TEdit.create(self);
e[i].parent:=self;
e[i].visible:=true;
e[i].left:=10;
e[i].top:=10+30*i;
e[i].width:=50;
e[i].height:=20;
end;

end;

或:
var
// 声明
text : array[0..100] of TEdit;
begin
// 创建( 如果要显示在窗口上,把nil改为父控件名,然后再设置parnet就行了)
text[0] := TEdit.Create(nil);
text[0].Text := 'it is a test';
// .... 同样创建其他的控件,也可用for循环做 ....
end;

01 , 01.txt 《 VB6.0中通过MSChart控件调用数据库 》 02 , 02.txt 《 用VB6实现动态增减控件 》 03 , 03.txt ActiveX控件的创建 04 , 04.txt ADO控件和DATA控件的冲突(不能共存)的解决方法 05 , 05.txt Combo的自动查询技术 06 , 06.txt DirectX7.0使用心得(1) 07 , 07.txt DirectX7.0使用心得(2) 08 , 08.txt DirectX7.0使用心得(3) 09 , 09.txt FSO对象模型在VB中的应用 10 , 10.txt MsComm 控件的文字传输范例 11 , 11.txt Office或IE4风格的ToolBar 12 , 12.txt Regsvr32.exe注册控件的具体用法 13 , 13.txt TextBox的自动调节 14 , 14.txt TextBox实现打印机效果 15 , 15.txt TreeView的基本操作 16 , 16.txt VB5中DBGRID控件VB6中使用 17 , 17.txt VB6.0动态加载ActiveX控件漫谈 18 , 18.txt VB与MS-Draw开发通用作图软件 19 , 19.txt VB中APP对象及其应用 20 , 20.txt VB中list控件的功能扩充 21 , 21.txt VB中防止将重复项目添加到列表框控件中 22 , 22.txt VB中用Multimedia MCI控件开发多媒体应用 23 , 23.txt Win Api在VB中的妙用 24 , 24.txt WINDOWS SCRIPT HOST对象在VB中的使用 25 , 25.txt 安装向导生成程序组并建立多个程序项 26 , 26.txt 保存复选框选项 27 , 27.txt 不用OCX来创建自己的控件(一) 28 , 28.txt 成组更新控件属性 29 , 29.txt 创建数据驱动窗体 30 , 30.txt 得到鼠标位置 31 , 31.txt 调整 Combo 下拉部分的宽度 32 , 32.txt 动态加入控件VB控件数组中 33 , 33.txt 对ListView中的列排序 34 , 34.txt 放一个Combo到Toolbar中 35 , 35.txt 改变 ListIndex而不发生 Click 事

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧