delphi – 自动向项目添加单元

发布时间：2020-12-15 09:32:01 所属栏目：大数据来源：网络整理

导读：我正在研究Delphi 7和Delphi 2006中的一个组件,我正在使用一个单元,我需要将该单元添加到项目的.dpr文件中,该文件将自动删除该组件. 就像Eureka Log自动将单元’ExceptionLog’添加到项目文件中一样：当我将组件放在项目中的任何表单上时,有人能告诉我如何

我正在研究Delphi 7和Delphi 2006中的一个组件,我正在使用一个单元,我需要将该单元添加到项目的.dpr文件中,该文件将自动删除该组件.
就像Eureka Log自动将单元’ExceptionLog’添加到项目文件中一样：

当我将组件放在项目中的任何表单上时,有人能告诉我如何以编程方式将单元添加到项目文件中吗？

解决方法

您很可能必须使用Open Tools API.

此外,它可能需要为您的组件编写一个TSelectionEditor来触发添加单元(我会尝试使用RequiresUnit方法).

虽然有一种简单的方法可以将一个单元添加到活动项目(下面的代码),但这只适用于活动项目,该项目可能不是表单所属的项目,而是将组件添加到.它还在uses子句的末尾添加了单元.

uses
  ToolsAPI;

var
  currentProject: IOTAProject;
begin
  currentProject := GetActiveProject();
  currentProject.AddFile('MyUnit.pas',True);

您可以检查GExperts source code,因为它包含一个可以解析单位并修改uses子句的类(TUsesManager).

（编辑：李大同）

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