delphi - 当组件添加到窗体时，Delphi 单元如何自动添加？

Question

这个问题已经有答案了:

Can I make a custom Delphi component add multiple units to the uses clause? (1 个回答)

Why is my Component auto adding other units to the uses interface? (4 个回答)

已关闭 9 年前。

如果我添加 TXMLDocument从 IDE 转换为表单时，单位 Xml.XMLDoc, Xml.xmldom, Xml.XMLIntf, Xml.Win.msxmldom自动添加(在保存/编译时)，IDE 如何知道添加这些单元。我明白为什么/如何XMLDoc添加了(它包含 TXMLDocument )，但是其他的呢？

此外，如果我将 DOMVendor 从 MSXML 更改为 ADOM XML v4，Xml.adomxmldom自动添加(在下一次编译时)。此时我可以删除 Xml.Win.msxmldom而不会自动添加回来。 IDE 如何根据组件属性知道这一点？

我问这个问题有两个原因，首先是好奇，其次是我正在清理大量单位(数百个)的使用部分。该项目使用 DevExpress，并且它向使用中添加了大量附加文件 - 例如添加 TcxSpinEdit然后cxSpinEdit, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit, cxTextEdit, cxMaskEdit被添加。我想最小化使用子句，其中控件已从表单中删除(但它们的单位仍保留在使用中)，因此需要更好地了解添加它们的过程。

Answer 1

组件可以安排它们在设计器中的存在，强制将特定单元添加到单元的使用子句中。他们通过调用 RegisterSelectionEditor 注册其 TSelectionEditor 子类来实现此目的。这些子类重写 TSelectionEditor.RequiresUnits 并指定必须添加的单位。

例如:

uses
  DesignEditors;
....
type
  TMySelectionEditor = class(TSelectionEditor)
  public
    procedure RequiresUnits(Proc: TGetStrProc); override;
  end;

procedure TMySelectionEditor.RequiresUnits(Proc: TGetStrProc);
begin
  Proc('MyUnit');
end;

procedure Register;
begin
  RegisterSelectionEditor(TMyComponent, TMySelectionEditor);
end;