关于自定义事件(100分)

如果你只是想根据USES的选择打开相应的 CHILDWINDOW。那么
在主FORM中用一个 霉举：
type
TChildWnd=(xChild,xxChild......);
然后你的OnOpenClient写成这个样子就可以
procedure TFrmMain.OnOpenClient(const AChild:TChildWnd);
begin
case AChild of
...
end;
end;

上面的回帖不少,我没有仔细看完.没有结帖说明没有得到满意的回复.
我给你出个主意肯定能实现:
1.跟其它事件的定义方法一样！
定义事件：property OnOpenClient Read FOnOpenClient write FOnOpenClient;
2.拦截ClientWindow消息,在子窗体create消息时激发自定义事件.
关于拦截ClientWindow消息如果不清楚可以参考delphi5开发人员手册的MDI或继续求教.