delphi - 在 Delphi 中为 TObject 分配属性

Question

是否可以在 Delphi 中将属性分配给 TObject？所以我以后可以用它做点什么？

例如，我正在创建一个菜单，我希望菜单中的一个项目具有 isActive 属性，以便稍后检查它的样式。

这可能吗？

类似于:

Object.setAttribute('isActive', true);

Answer 1

Delphi 知道可以用来向现有类添加功能的类助手。 你可以尝试例如:

TObjectHelper = class helper for TObject
private
  function GetMyProp: string;
  procedure SetMyProp(const Value: string);
public
  property myprop:string read GetMyProp write SetMyProp;
end;

请注意，我发现子类化是一种更合乎逻辑的方法。