如何在Delphi中实现VCL和FMX组件使用相同名称

你可以通过命名空间隔离+单元别名的方案实现需求，仅需在极少量代码中使用条件编译，上层业务调用完全无感知，符合整洁代码规范。

实现步骤 #

• 拆分框架专属实现单元
  分别创建两个独立单元存放不同框架的组件实现，两个单元内的组件类名保持一致，对外暴露的属性、方法、事件签名完全对齐：

  • VCL 版本单元：MyControls.VCL.MyCustomLabel，组件类声明为TMyCustomLabel，继承自VCL原生基类开发
  • FMX 版本单元：MyControls.FMX.MyCustomLabel，组件类声明为TMyCustomLabel，继承自FMX原生基类开发

• 新增通用别名单元
  创建一个框架无关的公共单元MyControls.MyCustomLabel，仅做条件类型映射，这是整个方案中唯一需要用到ifdef的地方：

  unit MyControls.MyCustomLabel;
  
  interface
  
  uses
    {$IFDEF VCL}
    MyControls.VCL.MyCustomLabel;
    {$ELSEIF FMX}
    MyControls.FMX.MyCustomLabel;
    {$ENDIF}
  
  type
    /// 框架无关的自定义标签组件，自动适配当前项目所属框架
    TMyCustomLabel = {$IFDEF VCL}VCL.MyCustomLabel.TMyCustomLabel{$ELSEIF FMX}FMX.MyCustomLabel.TMyCustomLabel{$ENDIF};
  
  implementation
  
  end.
  

• 项目级配置编译符号
  在VCL项目的编译选项中仅定义VCL全局符号，FMX项目的编译选项中仅定义FMX全局符号。业务代码只需要引用通用别名单元MyControls.MyCustomLabel，即可直接使用TMyCustomLabel组件，编译器会自动匹配对应框架的实现，无需修改组件库代码重复编译。

可选多框架兼容方案 #

如果需要同一个编译产物同时支持两个框架，可以采用工厂模式实现：

1. 先定义IMyCustomLabel公共接口，两个框架的TMyCustomLabel都实现该接口
2. 提供全局工厂方法CreateMyCustomLabel，运行时判断当前加载的框架类型，返回对应实现的实例
   该方案适合插件、动态库类场景，普通业务项目优先使用命名空间+别名的方案即可。

内容的提问来源于stack exchange，提问作者Rohit Gupta