如何向表单添加自定义属性

Question

我正在尝试将自定义属性添加到可以通过Delphi属性编辑器访问的基本表单。如果我只是像使用标准组件那样添加属性，则属性将不会显示在属性编辑器中。这是我试过的：

unit TestForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TfrmEasyIPBase = class(TForm)
  private
    FTest: String;
  public
    { Public declarations }
  published
    property Test: String read FTest write FTest;
  end;

var
  frmEasyIPBase: TfrmEasyIPBase;

implementation

{$R *.dfm}

end.

我是否必须在某个时候注册该物业？

Answer 1

RegisterCustomModule应该可以解决问题。

Answer 2

我现在无法访问delphi，但尝试将TForm descant添加到您的项目中，添加新表单，编辑新表单的pas文件，使其看起来像

TMyNewForm = Class(TfrmEasyIPBase)

同时编辑MyNewForm的DFM文件 - 将object MyNewForm更改为inherit MyNewForm