组件事件的通知!
设有:
TA=class(TComponent)
public
procedure DoActionA;
end;
TB=class(TComponent)
private
FA:TA
procedure ResponseForDoActionA;
published
property A:TA read FA write FA;
end;
在TB中有一个ResponseForDoActionA方法,它是在TB.A指向一个TA的实例时对TA.DoActionA方法的调用的响应。但是TA怎样将该事件通知给TB呢?TB如何用ResponseForDoActionA来响应来自TA的事件呢?
高手!帮帮忙!