Delphi自定义组件子属性未在IDE属性编辑器显示问题求助

云上老周

2026-10-12

修复方案

你有3处核心逻辑遗漏，导致IDE属性面板无法加载子属性：

THBComp的构造函数声明错误，未添加override修饰，也没有实例化FCheckValue成员，IDE访问子属性时指向空引用，无法加载子属性列表
未实现SetCheckValue赋值逻辑，直接替换对象引用会导致属性编辑器关联失效
TCheckValue的default true属性声明未配套构造函数赋值逻辑，默认值不会生效

1 修正TCheckValue类代码

添加构造函数初始化默认值：

type
 TCheckValue = class(TPersistent)
  public
    constructor Create; // 新增构造函数声明
    procedure Assign(Source : TPersistent); override;
    property OnChange : TNotifyEvent read FOnChange write FOnChange;
  // 其余私有、published段代码保持原有内容不变
 end;

// 新增构造函数实现
constructor TCheckValue.Create;
begin
  inherited;
  FValue1 := True;
  FValue2 := True;
end;

2 修正THBComp类代码

type
 THBComp = class(TComponent)
  public
    // 修正构造函数声明，匹配TComponent的虚构造签名，添加override修饰
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
   private
    FCheckValue: TCheckValue;
    procedure SetCheckValue(Value: TCheckValue);
   published
    property CheckValue: TCheckValue read FCheckValue write SetCheckValue;
 end;

constructor THBComp.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FCheckValue := TCheckValue.Create; // 实例化子属性对象
end;

destructor THBComp.Destroy;
begin
  FCheckValue.Free; // 释放子属性对象避免内存泄漏
  inherited;
end;

procedure THBComp.SetCheckValue(Value: TCheckValue);
begin
  FCheckValue.Assign(Value); // 调用Assign复制属性值，不直接替换对象引用
end;