property的使用（事件可能就是回调函数）

TOnUserInfoShow = procedure(userName:string;userAge:Integer)of object;//定义事件模型中的回调函数原型

TUserInfo = class
private
FName:string;
FAge:Integer;
FOnUserInfoShow: TOnUserInfoShow;

procedure FSetAge(theAge:Integer);
public
property Name:string read FName;//只读属性（私有变量）
property Age:Integer read FAge write FSetAge;//读写属性（私有变量，私有方法）

property OnUserInfoShow:TOnUserInfoShow read FOnUserInfoShow write FOnUserInfoShow;//事件模型回调函数

constructor Create;
end;

Ps: 对于FAge,FSetAge等变量和方法，只需在property后声明好，直接Ctrl+shift+c，即可自动生成。

二.只读属性

构造函数

constructor TUserInfo.Create;
begin
Self.FName:='Terry';
Self.FAge:=20;
end;
读取只读属性

begin
Self.Memo1.Lines.Add('读取只读属性姓名：'+Self.theUserInfo.Name);
end;
运行

三.读写属性

构造函数

constructor TUserInfo.Create;
begin
Self.FName:='Terry';
Self.FAge:=20;
end;
修改读写属性，并读取新值

begin
Self.Memo1.Lines.Add('修改前的读写属性年龄为：'+inttostr(Self.theUserInfo.Age));
Self.theUserInfo.Age:=30;
Self.Memo1.Lines.Add('修改后的读写属性年龄为：'+inttostr(Self.theUserInfo.Age));
end;
运行

四.事件回调函数

主窗体成员函数

procedure TFrmMain.UserInfoShow(name: string; age: Integer);
begin
Self.Memo1.Lines.Add('用户姓名为：'+Self.theUserInfo.Name);
Self.Memo1.Lines.Add('用户年龄为：'+inttostr(Self.theUserInfo.Age));
end;
主窗体创建时，将函数指针赋值给“事件回调函数”

调用事件回调函数

begin
Self.theUserInfo.OnUserInfoShow(Self.theUserInfo.Name,Self.theUserInfo.Age);
end;
运行

http://blog.csdn.net/zisongjia/article/details/53674036