事件(Event)编程,好玩.

Question

我写的上面的代码，只是看到VCL的源程序，明白了事件编程的道理，很是过瘾，所以快快写了一个例子，给大家示例，一块讨论。是直接写出来的，没有到delphi中试，只是我把知道的写一个类出来，所以可能会有些错。
上面的事件我是看了那些一般的控件的过程：Close,Open;体会出来的。
它们的基本过程序就是像上面一样：
procedure TClass.Close;
begin
  procedure1(False);
end;
procedure TClas.Open;
begin
  procedure1(True);
end;
而后：
procedure TClass.Procedure1(Value:boolean);
begin
  //开始事件1处理。
  if Assigned(SomeEvent1) then SomeEvent1(Param1,Param2...);//如果用户编写了SomeEvent1,则处理SomeEvent1,相当于一个过程。
  //中间数据处理
  //process...
  //事件2处理。
  if Assigned(SomeEvent) then SomeEvent2(Param1,Param2...);
end;

Answer 1

to zj1978
我也知道这是最基本的技术，但是由于一些控件继承的类层次太低了。所以它的事件有些都是不知去哪里找，哪里调用。呼，其实我昨天是在找DCOMConnection中Connected为真时，找它的怎么连接到DCOM Server ，半天也没找到，还有它的ServerName.烦死了，那DCOMConnection.

Answer 2

原来是这个，我以为是IConnectionPoint 接口和COM的呢
www.applevb.com