如何将属性添加到将反映在对象检查器上的组件

Question

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

Answer 1

制作物业published.例如,

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;