delphi - 有没有更简单的方法来说明所有平台都支持 Delphi 组件/控件？

Question

为了使 Delphi 组件/控件可用于所有(当前)可用的平台，我必须编写

  [ComponentPlatforms(pidWin32 or pidWin64 or pidOSX32 or pidiOSSimulator or pidiOSDevice or pidAndroid)]

在组件/控件声明之前:

type
  [ComponentPlatforms(pidWin32 or ...)]
  TMyComponent = class(TComponent)
  end;

是否有更简短的方式来编写该组件支持所有当前和 future 的平台？

Answer 1

没有更简单的方法，但您可以将它们定义为一个常量:

const
  AllCurrentPlatforms = 
    pidWin32 or pidWin64 or pidOSX32 or 
    pidiOSSimulator or pidiOSDevice or pidAndroid;

并在每次创建新组件时使用它。但是，假设您不生产那么多组件，那么将其完整地写出来(只需要几次)有什么问题吗？

我还假设，如果您简单地省略该属性，该组件将被视为支持所有平台。你可以测试一下。

<小时/>

ToolsAPI/PlatformAPI 中实际上有一个类似的常量 AllPlatforms，但该单元不适合一般运行时使用。