如何用自定义TMyControl替换TFrame并保留Delphi FMX设计时支持？

可行，但需要为自定义控件配置特定的设计时支持逻辑——毕竟TFrame是Delphi IDE专门做了深度集成的容器组件，自定义控件要达到同等的设计体验，需要手动实现部分IDE交互逻辑。

核心实现要点 #

• 选择合适的基类
  不要直接从TControl继承，建议基于TLayout、TPanel或TScrollBox这类FMX原生容器控件扩展。这类控件自带子控件管理逻辑，能减少你手动实现子控件加载、布局的工作量，也更容易被IDE识别为可编辑容器。

• 配置设计时属性与编辑器

  • 给控件类添加平台兼容属性，确保IDE能正确加载：

    [ComponentPlatformsAttribute(pidWin32 or pidWin64 or pidOSX32 or pidiOSSimulator or pidiOSDevice or pidAndroid)]
    

  • 注册自定义组件编辑器，实现类似TFrame的"切换设计/代码视图"功能：继承TComponentEditor，重写右键菜单动词（Verb），关联IDE的设计视图与代码视图切换逻辑。

• 确保子控件可编辑
  在控件的published段暴露Children属性，IDE默认会为容器类的Children提供可视化编辑支持；如果是自定义的子控件集合，需要额外注册TCollectionEditor来实现可视化管理。

• 注册控件到IDE
  在包的Register过程中，用RegisterComponents将控件添加到组件面板，同时用RegisterComponentEditor绑定对应的编辑器，让IDE识别并提供设计时交互。

极简示例代码 #

unit MyControl;

interface

uses
  System.Classes, FMX.Controls, FMX.Layouts;

type
  [ComponentPlatformsAttribute(pidWin32 or pidWin64 or pidOSX32 or pidiOSSimulator or pidiOSDevice or pidAndroid)]
  TMyControl = class(TLayout)
  public
    constructor Create(AOwner: TComponent); override;
  published
    // 暴露需要设计时编辑的核心属性
    property Align;
    property Anchors;
    property Children;
    property Size;
    property Visible;
  end;

procedure Register;

implementation

uses
  DesignIntf, DesignEditors;

// 自定义组件编辑器，实现视图切换
type
  TMyControlEditor = class(TComponentEditor)
  public
    procedure ExecuteVerb(Index: Integer); override;
    function GetVerb(Index: Integer): string; override;
    function GetVerbCount: Integer; override;
  end;

{ TMyControl }
constructor TMyControl.Create(AOwner: TComponent);
begin
  inherited;
  // 初始化默认样式
  Width := 300;
  Height := 200;
  BackgroundColor := TAlphaColors.Lightgray;
end;

{ TMyControlEditor }
procedure TMyControlEditor.ExecuteVerb(Index: Integer);
begin
  inherited;
  case Index of
    0: ShowDesigner; // 切换到设计视图
    1: ShowCode;     // 切换到代码视图
  end;
end;

function TMyControlEditor.GetVerb(Index: Integer): string;
begin
  case Index of
    0: Result := '切换到设计视图';
    1: Result := '切换到代码视图';
  end;
end;

function TMyControlEditor.GetVerbCount: Integer;
begin
  Result := 2;
end;

procedure Register;
begin
  RegisterComponents('Custom', [TMyControl]);
  RegisterComponentEditor(TMyControl, TMyControlEditor);
end;

end.

注意事项 #

• 自定义控件的设计体验无法100%复刻TFrame，比如TFrame的"包含窗体"、"继承框架"等专属功能，需要额外开发逻辑实现。
• 测试时要确保控件包正确安装，IDE重启后能在组件面板找到控件，拖放后可通过右键菜单或双击进入设计视图。
• 跨平台场景下，要确保控件的所有属性、方法在目标平台兼容，避免设计时正常但运行时出错。

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