户外防腐木寿命:如何在VCL开发时制作一个事件

来源:百度文库 编辑:神马品牌网 时间:2024/05/15 03:07:58
我在制作一个VCL控件,继承自TCompoment类
类的结构如下:

type
TOnStrChange=procedure(Sender:TObject; var StrText:string)of object;

type
TDemo=class(TComponent)
private
fStr:string;
fOnStrChange:TOnStrChange;
published
property OnStrChange:TOnStrChange read fOnStrChange write fOnStrChange;
end;

要求是当私有成员fStr发生改变时,触发OnStrChange事件
应该如何编写?