delphi - 如何向组件添加反射(reflect)对象检查器的属性

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;