书写格式： 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;
原文：http://www.cnblogs.com/studypanp/p/4944724.html