delphi – 为什么要在类中使用属​​性？

TSampleClass = class
  public
    SomeInfo: Integer;
end;

TPropertyClass = class
  private
    fSomeInfo: Integer;
  public
    property SomeInfo: Integer read fSomeInfo write fSomeInfo;
end;

这只是一个特定案例的一个非常简单的例子,但仍然是一个非常常见的案例.

如果您有可视控件,则可能需要在更改变量/属性时重新绘制控件.例如,假设您的控件具有BACkgroundColor变量/属性.

添加这样的变量/属性的最简单方法是让它成为一个公共变量：

TMyControl = class(TCustomcatontrol)
public
  BACkgroundColor: TColor;
...
end;

在TMyControl.Paint过程中,使用BACkgroundColor的值绘制背景.但这不行.因为如果更改控件实例的BACkgroundColor变量,则控件不会重新绘制自身.相反,直到下一次控件由于某些其他原因重绘自身时才会使用新的背景颜色.

所以你必须这样做：

TMyControl = class(TCustomcatontrol)
private
  FBACkgroundColor: TColor;
public
  function GetBACkgroundColor: TColor;
  procedure SetBACkgroundColor(NewColor: TColor);
...
end;

哪里

function TMyControl.GetBACkgroundColor: TColor;
begin
  result := FBACkgroundColor;
end;

procedure TMyControl.SetBACkgroundColor(NewColor: TColor);
begin
  if FBACkgroundColor <> NewColor then
  begin
    FBACkgroundColor := NewColor;
    Invalidate;
  end;
end;

然后程序员使用控件必须使用MyControl1.GetBACkgroundColor来获取颜色,并使用MyControl1.SetBACkgroundColor来设置它.尴尬了.

使用属性,您可以充分利用这两个方面.的确,如果你这样做的话

TMyControl = class(TCustomcatontrol)
private
  FBACkgroundColor: TColor;
  procedure SetBACkgroundColor(NewColor: TColor);
published
  property BACkgroundColor: TColor read FBACkgroundColor write SetBACkgroundColor;
end;

...

procedure TMyControl.SetBACkgroundColor(NewColor: TColor);
begin
  if FBACkgroundColor <> NewColor then
  begin
    FBACkgroundColor := NewColor;
    Invalidate;
  end;
end;

然后

>从程序员的角度来看,他可以使用单个标识符,MyControl1.BACkgroundColor属性读取和设置背景颜色,以及>当他设置它时,控件重新粉刷！