delphi - 在 Delphi 中为 TObject 分配一个属性

Question

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

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

这可能吗？

就像是：

Object.setAttribute('isActive', true);

标签： delphi

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;

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