微信扫一扫2462
社区成员
如何动态的添加Delphi的组件?
在我的程序中，需要用TADOConnection组件连接数据库，但是TADOConnection组件对象的数目不是固定的
也就是说我可能使用TADOConnection组件，同时连接N>=1个数据库，N没有上限，如何才能动态的产生这些
TADOConnection组件呢(我需要几个就产生几个)？高手指点啊
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
xuleicsu 2006-04-21
试试看
- 打赏
- 举报
GARNETT2183 2006-04-21
var
connect: array of TADOConnection;
begin
setlength(connect,5); //需要多少个就改这个数据值5
end;
connect: array of TADOConnection;
begin
setlength(connect,5); //需要多少个就改这个数据值5
end;
- 打赏
- 举报
Delphi为ListBox组件添加水平滚动条 一般情况下，ListBox的滚动条是默认不显示的，有些是根据内容自动显示的，本例将为TListBox组件强制添加一个水平方向的滚动条。为了更好的演示，窗体上有一个按钮可以控制滚动条的添加，你只需点击一下按钮，即可...
Delphi 向TListView组件中添加项目.rar Delphi 向TListView组件中添加项目，实现的功能相信大家还是挺熟悉的，比如Windows中更改成图标查看方式时的内容列表，图标排列的风格，在本例子中，是使用Delphi7.0中的TListView控件来实现，具体还是很方便的： ...
如何delphi7中添加TClientSocket 组件 在Component->instal package 选择ADD添加borland/delphi/bin/dclsockets70.bpl 确认重新打开，就成功添加了TClientSocket
Delphi仿TDBNavigator组件功能的例子 Delphi仿TDBNavigator组件功能的例子，用来浏览数据库的一个组件，网格控件，可上一条、下一条并分页浏览access中的内容，还可以添加、编辑、删除、修改数据库的内容，模拟TDBNavigator组件所实现的功能。...
CoolTrayIcon Delphi系统托盘组件.rar CoolTrayIcon是Delphi中使用的一款经典的系统托盘组件，直接安装CoolTrayIcon_D6plus.dpk，并添加CoolTrayIcon目录至Delphi的Library Path中即可使用，本控件包中带有Demos，方便新手快速布署控件。
CEF4Delphi组件 86.0.23.0版，带支持库 CEF4Delphi是由Salvador Díaz Fau创建的一个开源项目，用于在基于Delphi或Lazarus/FPC的应用程序中嵌入基于谷歌内核。本下载包括了win32/win64运行支持包。...打开对应版本的CEF4Delphi.dproj进行组件安装。
动态添加组件，添加id，获取子控件，移除控件 动态创建关键代码（新添加的view是自己写的xml布局view） // 1. 获取自定义的 View Button button = (Button) LayoutInflater.from(this).inflate(R.layout.custom_layout_btn, linearLayout, false); // Button...
delphi html 表格控件,Delphi TTable 组件 TTable 是 TDataSet 的派生类，它是基于 BDE 数据库引擎的数据集组件，也是一个较简单的数据组件，可以直接从数据库中获取数据表的数据，只需设置连接的数据库属性(Database) 和所要获取的数据表名称(Tablename)，...
Delphi组件事件动态添加函数 比如想在窗体初始化的时候给一个TImage的OnClick事件动态绑定一个函数OpenTestForm，可以使用如下方法。1. 定义procedure OpenTestForm，并实现：procedure OpenTestForm(Sender:TObject);impelmentationprocedure...
一个Delphi TreeView节点添加、删除操作实例.rar 一个Delphi TreeView节点添加、删除操作实例，删除节点时请确认主节点内没有子节点，请删除全部子节点后再删除，相关代码： addtxt:=trim(e1.text); //删除空格后得到添加节点的文本 addtxtlength:=length(add...
