gpt4 book ai didi

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

转载 作者:行者123 更新时间:2023-12-03 15:09:27 24 4
gpt4 key购买 nike

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

enter image description here

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

最佳答案

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

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

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

uses
ToolsAPI;

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

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

关于delphi - 自动将单元添加到项目中,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/10293177/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com