我可以使定制Delphi组件在uses子句中添加多个单元吗？

发布时间：2020-12-15 03:34:14 所属栏目：大数据来源：网络整理

导读：我正在研究XE2中的一些组件.是否可能有更多的组件的单位添加到其删除的形式的uses子句中？例：当我从我已经构建并安装的包中选择TCustomComponent时,将单元CustomComponent添加到窗体的uses子句中.我也想添加单位GlobalConstants. 有人知道这是否可以完成

我正在研究XE2中的一些组件.是否可能有更多的组件的单位添加到其删除的形式的uses子句中？

例：
当我从我已经构建并安装的包中选择TCustomComponent时,将单元CustomComponent添加到窗体的uses子句中.我也想添加单位GlobalConstants.

有人知道这是否可以完成？

解决方法

为您的组件创建一个设计时间包(如果您还没有),并创建一个实现 ISelectionEditor接口的类(最简单的方法是从 TSelectionEditor类派生),并覆盖其虚拟 RequiresUnits()方法以列出任何您想要显示在组件的uses子句中的其他单位.然后通过调用 RegisterSelectionEditor(),您的组件的Register()函数注册该类.

Indy 10的TIdTCPServer,TIdCmdTCPClient和TIdUDPServer组件完全是为了确保将IdContext和IdSocketHandle单元添加到using子句中.看看IdCoreSelectionEditors.pas和IdRegisterCore.pas单位,看看Indy如何使用它.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!