如何在Delphi的Object Inspector中隐藏Font.Color子属性？

你遇到的问题是因为UnlistPublishedProperty只能处理组件自身直接声明的published属性，而Font.Color是嵌套在TFont对象里的子属性，所以直接用'Font.Color'作为参数无效。以下两种方法可以实现隐藏Font.Color子属性的需求：

方法一：自定义TFont子类，移除Color的发布属性 #

通过创建一个继承自TFont的子类，将Color属性改为public而非published，同时保留其他子属性的发布状态，然后让组件的Font属性使用这个子类：

// 自定义无Color发布的Font类
type
  TNoColorFont = class(TFont)
  private
    function GetColor: TColor;
    procedure SetColor(Value: TColor);
  public
    property Color: TColor read GetColor write SetColor; // 仅保留读写，不发布
  published
    // 重新发布TFont的其他属性
    property Charset;
    property Height;
    property Name;
    property Orientation;
    property Pitch;
    property Size;
    property Style;
    property Weight;
  end;

// 组件类定义
type
  TSvhProgressbar = class(TCustomControl)
  private
    FFont: TNoColorFont;
    procedure SetFont(Value: TNoColorFont);
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property Font: TNoColorFont read FFont write SetFont;
    // 你的其他组件属性
  end;

// 组件类实现
constructor TSvhProgressbar.Create(AOwner: TComponent);
begin
  inherited;
  FFont := TNoColorFont.Create;
  // 初始化Font默认值，比如继承父类的Font设置
  FFont.Assign(Font);
end;

destructor TSvhProgressbar.Destroy;
begin
  FFont.Free;
  inherited;
end;

procedure TSvhProgressbar.SetFont(Value: TNoColorFont);
begin
  FFont.Assign(Value);
  Invalidate; // 字体变化时重绘组件
end;

注册组件后，Object Inspector中只会显示Font的其他子属性，Color会被隐藏。

方法二：通过自定义属性编辑器隐藏Color子属性 #

不需要修改组件的Font类型，而是在注册时为TSvhProgressbar的Font.Color属性注册一个标记为隐藏的属性编辑器：

// 需要引用 DesignIntf、DesignEditors 单元
procedure Register;
type
  THiddenColorProperty = class(TPropertyEditor)
  public
    function GetAttributes: TPropertyAttributes; override;
  end;

function THiddenColorProperty.GetAttributes: TPropertyAttributes;
begin
  Result := [paHidden]; // 标记属性为隐藏
end;

begin
  // 为TSvhProgressbar的Font.Color属性注册隐藏编辑器
  RegisterPropertyEditor(TypeInfo(TColor), TSvhProgressbar, 'Font.Color', THiddenColorProperty);
  RegisterComponents('SvhComponents', [TSvhProgressbar]);
end;

这种方法更轻量化，无需修改组件的Font属性类型，直接在注册阶段控制子属性的显示状态。

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