对属性的认识

书写格式： property  Name： 类型  read (方法) write (方法) ； //default 可省略

property Name： string read FName write SetName;   　     // 读可以是函数也可以是变量

property Name： string read GetName write SetName;   　　

1.关键词Property

2.read方法

3.write方法

4.default 默认值。

改变Name值可触发SetName方法。

procedure TForm2.SetRow(const Value: integer);
begin
  if FRow <> Value then begin
    FRow := Value;
  end;
  Log(‘v ‘ +Value.ToString);
end;

procedure TForm2.G1SelectCell(Sender: TObject; const ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  Row := ARow;            // 只能改变Row的值 才能出发SetRow方法，  而不是改变FRow
end;