关于事件 (50分)

M

mywuti

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-22

• #1

procedure FieldChange(Sender:TField);
begin
showMessAge(Sender.asString);
end;

procedure DataSetAfterOpen(DataSet: TDataSet);
begin
DataSet.Fields.OnChange:=FieldChange;
end;

把FieldChange传给字段的OnChange事件,
但如果OnChange有存在过程都会被FieldChange代替,
有无办法让原OnChange中的过程执行后,再执行FieldChange?

 

Y

ysai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-10

• #2

只有先用一个临时变量先保存原过程的指针,再在FieldChange事件中调用

 

J

jianguobu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-10

• #3

如:

Var
Del:TDataSetNotifyEvent;
begin
Del := DataSet.Fields.OnChange;
执行你的代码;
DataSet.Fields.OnChange :=del;
end;

 

M

mywuti

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-10

• #4

//只有先用一个临时变量先保存原过程的指针,再在FieldChange事件中调用
FieldChange已经指定为原事件的过程,在其中调用原过程指针会死循环,
请举例子.
to jianguobu
应该放在什么地方?

 

M

mywuti

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-11

• #5

多人接受答案了。