Delphi 12 VCL可视化继承失效问题求助

你的核心问题出在包注册代码里的*RegisterCustomModule(TFormBase, TCustomModule)*调用——这个函数是用于注册非可视化的自定义模块（比如自定义数据模块类），而非可继承的VCL窗体，它会直接干扰Delphi的可视化继承机制，导致控件和属性无法正常继承。

修复步骤 #

1. 修改包的注册单元代码，移除RegisterCustomModule调用：

unit RegItems;

interface

uses
  Classes, DesignEditors, DesignIntf, frmBase;

procedure Register;

implementation

procedure Register;
begin
  RegisterNoIcon([TFormBase]);
  // 移除这行干扰可视化继承的代码
  // RegisterCustomModule(TFormBase, TCustomModule);
end;

end.

2. 重新编译并安装包：

   • 打开包项目，执行「Project -> Build [你的包名]」
   • 执行「Component -> Install [你的包名]」，安装完成后重启Delphi

3. 验证修复效果：

   • 通过「File / New / Other / Inheritable Items」选择TFormBase创建新窗体
   • 新窗体将正确继承WindowState属性和Button1控件，DFM文件的inherited声明也会保持正常，不会再被自动修改

自定义属性编辑器的正确实现方式 #

如果需要为ggDataModuleName、ggPrimaryKeyName这类自定义属性添加特殊编辑逻辑（比如下拉选择数据模块类），不要用RegisterCustomModule，而是使用RegisterPropertyEditor函数。示例代码如下：

// 先实现自定义属性编辑器类
type
  TDataModuleNameEditor = class(TStringProperty)
  public
    function GetAttributes: TPropertyAttributes; override;
    procedure GetValues(Proc: TGetStrProc); override;
  end;

function TDataModuleNameEditor.GetAttributes: TPropertyAttributes;
begin
  Result := [paValueList, paSortList];
end;

procedure TDataModuleNameEditor.GetValues(Proc: TGetStrProc);
var
  I: Integer;
begin
  // 遍历已注册的数据模块类，提供下拉选项
  for I := 0 to Classes.GetClassList.Count - 1 do
    if TPersistentClass(Classes.GetClassList[I]).InheritsFrom(TDataModule) then
      Proc(Classes.GetClassList[I].ClassName);
end;

// 在Register过程中注册编辑器
procedure Register;
begin
  RegisterNoIcon([TFormBase]);
  RegisterPropertyEditor(TypeInfo(string), TFormBase, 'ggDataModuleName', TDataModuleNameEditor);
end;

这种方式既可以实现自定义属性的特殊编辑功能，又不会破坏可视化继承。

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