delphi - 自动将单元添加到项目中

Question

我正在Delphi 7中的一个组件上工作和Delphi 2006 ，我使用的单位需要添加到 .dpr自动放置组件的项目的文件。 就像Eureka Log自动将'ExceptionLog'单元添加到项目文件中的方式一样:

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

Answer 1

您很可能必须为此使用开放工具 API。

此外，它可能需要写一个 TSelectionEditor让您的组件触发单元的添加(我会尝试 RequiresUnit 方法)。

虽然有一种简单的方法可以将单元添加到事件项目(下面的代码)，但这仅适用于事件项目，该项目可能不是表单所属的项目，您要向其添加组件。它还在 use 子句的末尾添加了单位。

uses
  ToolsAPI;

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

您可以查看 GExperts source code因为它包含一个类(TUsesManager)，可以解析单元并修改uses子句。