delphi - 如何让 VCL 和 FMX 组件具有相同的名称？

Question

Delphi 设法拥有 TLabel存在于 FMX 和 VCL .那么，我如何创建两个具有相同名称的组件，除了一个用于 VCL 一个是给 FMX ?
是的，我知道我可以使用 ifdef s 并每次都重新编译库。但这并不是完全干净的代码。

Answer 1

在不同的 Unit Scopes 中实现您的两个组件，正是为此目的而创建的。
例如，执行 TMyComponent用于 VCL Vcl.MyUnit.pas ，并实现 TMyComponent用于 FMX FMX.MyUnit.pas .
然后，使用 TMyComponent在任何其他单元中，您可以:

使用 {$IFDEF} s 有条件地指定 Vcl.MyUnit或 FMX.MyUnit在 uses条款。

为 VCL 和 FMX 创建单独的项目，其中 VCL 项目指定 Vcl在其 Unit Scope Names compiler setting ，并且 FMX 项目指定 FMX , 然后你可以只使用 MyUnit在 uses条款。

另见 Adding Unit Scope Names for Your Own Components .
供引用，VCL 的 TLabel在 Vcl.StdCtrls单位范围和 FMX 的 TLabel在 FMX.StdCtrls单位范围。