肇庆高等专科学校贴吧:如何在VCL开发时制作一个事件

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/12 14:44:57
我在制作一个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事件
应该如何编写?