如何捕捉修改属性的事件

[肥仔胧]

我們修改一个DataSet的某个字段值,可以触发Datasource的DataChange事件,便可知它修改了哪个字段
现在我们自己定义个类,如下
TMyobj = class
private
FItemID: Integer;
FName: string;
FDate: TDateTime;
public

published
property ItemID: Integer read FItemID write FItemID;
property Name: string read FName write FName;
property FDate: TDateTime read FDate write FDate;
end;

创建一对象
myObj := TMyobj.Create;
对属性赋值如:
myobj.ItemID := 1;
myobj.Name := 2;

可以捕捉到修改了属性而触发的事件(类似于DataChange事件,应该有这个事件吧)

[肥仔胧]

不會吧,現在delphi板塊的有這麼冷清嗎

[sanguomi]

默认是没有的
procedure SetData(const AData: TDateTime);
property FDate: TDateTime read FDate write SetData;
property OnchangeEvent: Tevent: read FOnchangeEvent write FOnchangeEvent;

procedure SetData(const AData: TDateTime);
begin
if AsSingn(OnchangeEvent) then
OnchangeEvent(AData)
end;

一般都是这样的

[sanguomi]

你自己写个简单的控件就知道了

[肥仔胧]

[Quote=引用 1 楼 sanguomi 的回复:]
默认是没有的
procedure SetData(const AData: TDateTime);
property FDate: TDateTime read FDate write SetData;
property OnchangeEvent: Tevent: read FOnchangeEvent write FOnchangeEvent;

procedure SetDa……
[/Quote]

我现在就是这样写,所以觉得麻烦,

[肥仔胧]

高手们....