delphi - 创建兼容VCL和FMX的新组件

Question

我正在做一些组件，我想让它们兼容 VCL 和 FMX。所以我有一个遵循这种模式的结构:

General_dpk(使用 TCustomMyClass)+ VCL_dpk(使用 TMyClass)+ FMX_dpk(使用 TMyClassFMX)

每个包都有注册其组件的注册过程。组件选项板中会出现两个组件(VCL 和 FMX)。如何才能像其他 Delphi 组件一样只根据所选项目类型(VCL 或 FMX)显示组件？

谢谢

Answer 1

好吧，经过长时间的搜索，我在 Embarcadero 论坛上询问了。在那里，雷米友善地告诉了我答案(当你知道的时候很容易)。问题是您需要像这样在注册过程中调用 GroupDescendentsWith 函数

// para componentes VCL
GroupDescendentsWith(TMyClass, Vcl.Controls.TControl);

// para componentes FMX
GroupDescendentsWith(TMyClassFMX, Fmx.Types.TControl);

Embarcadero论坛上的答案here