如何实现类似TPageControl的Delphi自定义控件属性编辑功能？

阿华AIGC实验室

2026-5-15

根据你的需求，要实现类似TPageControl的TabSheet那种在Object Inspector中直接切换父控件和子项编辑属性的功能，核心在于利用Delphi IDE的组件管理机制，让你的子Display Item成为可被IDE识别的Component子类，同时让父控件正确暴露这些子项给IDE。下面是具体的实现思路，一步步来：

核心思路概述

要实现目标，关键是让Display Item成为TComponent派生类（这样才能被Object Inspector识别编辑），同时父控件要正确向IDE暴露这些子项，让IDE的结构视图（Structure View）能看到它们，从而支持点击切换编辑对象。

1. 设计Display Item类结构

首先，你的每个Display Item必须继承自TComponent（如果是可视化的显示项，推荐继承TCustomControl，方便自定义绘制和交互）。这样它才能具备在IDE中被编辑的能力，并且可以和父控件建立Owner关系，由父控件管理生命周期。

示例代码：

// 可视化的Display Item示例，继承TCustomControl
TDisplayItem = class(TCustomControl)
private
  FTitle: string;
  FBackgroundColor: TColor;
  // 其他自定义属性的字段
protected
  procedure Paint; override; // 重写Paint实现自定义显示
public
  constructor Create(AOwner: TComponent); override;
published
  // 公开需要在Object Inspector编辑的属性
  property Title: string read FTitle write FTitle;
  property BackgroundColor: TColor read FBackgroundColor write FBackgroundColor default clWhite;
  // 继承的可视化属性也可以按需公开，比如Width、Height等
  property Width;
  property Height;
end;

2. 父控件的子项管理设计

父控件需要维护一个Display Item的集合，并且要实现IDE识别子项的关键方法：GetChildren和Notification。

父控件核心代码示例

TParentDisplayControl = class(TCustomControl)
private
  FDisplayItems: TList<TDisplayItem>;
  function GetDisplayItem(Index: Integer): TDisplayItem;
  procedure SetDisplayItem(Index: Integer; Value: TDisplayItem);
protected
  // 关键：告诉IDE父控件包含哪些子组件，Structure View才会显示它们
  procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
  // 监听子组件的销毁通知，自动从列表移除
  procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  procedure Paint; override; // 绘制父控件的容器样式
public
  constructor Create(AOwner: TComponent); override;
  destructor Destroy; override;
  // 添加/移除子项的方法
  procedure AddDisplayItem(Item: TDisplayItem);
  procedure RemoveDisplayItem(Item: TDisplayItem);
  // 公开子项列表的访问属性
  property DisplayItems[Index: Integer]: TDisplayItem read GetDisplayItem write SetDisplayItem;
  property DisplayItemCount: Integer read FDisplayItems.Count;
published
  // 父控件自身的公开属性，比如BorderStyle、Padding等
  property BorderStyle;
  property Padding;
end;

关键方法实现

GetChildren：必须实现这个方法，让IDE能枚举父控件的子组件：

procedure TParentDisplayControl.GetChildren(Proc: TGetChildProc; Root: TComponent);
var
  I: Integer;
begin
  inherited; // 先处理父类的子组件
  // 枚举所有Display Item并传递给IDE
  for I := 0 to FDisplayItems.Count - 1 do
    Proc(FDisplayItems[I]);
end;

Notification：处理子项被销毁时的清理：

procedure TParentDisplayControl.Notification(AComponent: TComponent; Operation: TOperation);
begin
  inherited;
  if (Operation = opRemove) and (AComponent is TDisplayItem) then
    RemoveDisplayItem(TDisplayItem(AComponent));
end;

AddDisplayItem：添加子项时设置父控件为其Owner和Parent（如果是可视化控件）：

procedure TParentDisplayControl.AddDisplayItem(Item: TDisplayItem);
begin
  if Assigned(Item) and not FDisplayItems.Contains(Item) then
  begin
    Item.Owner := Self;
    Item.Parent := Self; // 可视化控件需要设置Parent才能显示
    FDisplayItems.Add(Item);
    Invalidate; // 刷新父控件显示
  end;
end;

3. IDE集成与组件注册

要让这些控件在Delphi IDE中正常工作，需要正确注册组件，并且可以优化设计时体验：

注册代码示例

procedure Register;
begin
  // 注册父控件到组件面板
  RegisterComponents('Custom Controls', [TParentDisplayControl]);
  // 注册子项，但不显示在组件面板（类似TTabSheet，只能通过父控件添加）
  RegisterNoIcon([TDisplayItem]);
  // 可选：为父控件注册组件编辑器，添加右键菜单功能
  RegisterComponentEditor(TParentDisplayControl, TParentDisplayControlEditor);
end;

可选：添加设计时右键菜单

为父控件写一个组件编辑器，方便在IDE中快速添加/删除Display Item：

TParentDisplayControlEditor = class(TComponentEditor)
public
  function GetVerbCount: Integer; override;
  function GetVerb(Index: Integer): string; override;
  procedure ExecuteVerb(Index: Integer); override;
end;

// 实现组件编辑器
function TParentDisplayControlEditor.GetVerbCount: Integer;
begin
  Result := 2; // 两个菜单项：添加、删除
end;

function TParentDisplayControlEditor.GetVerb(Index: Integer): string;
begin
  case Index of
    0: Result := 'Add Display Item';
    1: Result := 'Remove Selected Display Item';
  end;
end;

procedure TParentDisplayControlEditor.ExecuteVerb(Index: Integer);
var
  ParentCtrl: TParentDisplayControl;
  NewItem: TDisplayItem;
  SelectedItem: TDisplayItem;
begin
  ParentCtrl := Component as TParentDisplayControl;
  case Index of
    0:
      begin
        NewItem := TDisplayItem.Create(ParentCtrl);
        NewItem.Name := ParentCtrl.Name + 'DisplayItem' + IntToStr(ParentCtrl.DisplayItemCount + 1);
        ParentCtrl.AddDisplayItem(NewItem);
        // 让IDE选中新创建的子项
        SelectComponent(NewItem);
      end;
    1:
      begin
        // 获取当前选中的子项（从Structure View或Form Designer）
        if Assigned(Designer.Selected) and (Designer.Selected is TDisplayItem) then
        begin
          SelectedItem := TDisplayItem(Designer.Selected);
          ParentCtrl.RemoveDisplayItem(SelectedItem);
          SelectedItem.Free;
        end;
      end;
  end;
end;

4. 效果验证

完成上述步骤后，在Delphi IDE中：