使用Automation Object生成含Evens的Interface后，Delphi7 生成如下代码 TEventIntf = class(TAutoObject, IConnectionPointContainer, IEventIntf) private { Private declarations } FConnectionPoints: TConnectionPoints; FConnectionPoint: TConnectionPoint; FEvents: IEventIntfEvents; { note: FEvents maintains a *single* event sink. For access to more than one event sink, use FConnectionPoint.SinkList, and iterate through the list of sinks. } public procedure Initialize; override; protected { Protected declarations } property ConnectionPoints: TConnectionPoints read FConnectionPoints implements IConnectionPointContainer; procedure EventSinkChanged(const EventSink: IUnknown); override; end; 为了激活多个客户端的Evens一般Delphi5-时使用如下代码获取SinkList IConnectionPoint.EnumConnections(ENum); while ENum.Next(1,ConnectData,@Fetched)=S_OK do (ConnectData.pUnk as IEventIntfEvents).OnEvent(); 这样做的原因是Delphi5-不会声称FConnectionPoint: TConnectionPoint; 然而，Delphi7 生成的代码中包含FConnectionPoint: TConnectionPoint; 是否可以直接使用FConnectionPoint.SinkList来遍历所有的Client。如何做？ 我使用(FConnectionPoint.SinkList.Items[i] as IEventIntfEvents).OnEvent(); 有错误。 Justin Shen

------
====================
我为一切作努力！
Justin Shen