如何向组件添加反映对象检查器的属性

Question

在Delphi 7中，当向对象添加属性时，如何在对象检查器中看到该属性？

Answer 1

使该属性发布。例如，

private
  FMyProperty: integer;
published
  property MyProperty: integer read FMyProperty write FMyProperty;

通常，当属性更改时，您需要重新绘制控件（或进行一些其他处理）。然后你可以做

private
  FMyProperty: integer;
  procedure SetMyProperty(MyProperty: integer);
published
  property MyProperty: integer read FMyProperty write SetMyProperty;

...

procedure TMyControl.SetMyProperty(MyProperty: integer);
begin
  if FMyProperty <> MyProperty then
  begin
    FMyProperty := MyProperty;
    Invalidate; // for example
  end;
end;

Answer 2

将该属性添加到已发布部分，它将使其显示在对象检查器上，如下所示：

TMyComponent = class(TComponent)
 ...
published
  property MyProperty: string read FMyProperty write SetMyProperty;

Answer 3

来自文档：

已发布的属性中声明的属性
组件类的部分
声明在对象中是可编辑的
设计时检查员。

Answer 4

不要忘记该组件需要在 Delphi 中注册（最好在设计时包中），否则您将在对象检查器中根本看不到任何内容！

我的意思是...我可以创建一个名为 TMyPanel 的新 TPanel 后代，并向其添加一个新的 Published 属性：

type
  TPanel1 = class(TPanel)
  private
    FMyName: String;
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
    property MyName : String read FMyName write FMyName;
  end;

但是如果您没有使用 RegisterComponent 注册新类，则该属性不会显示在对象检查器中：

procedure Register;
begin
  RegisterComponents('Samples', [TPanel1]);
end;

只是为了完全的 ：-）