更具体的说明可以参看以下两处:
这里只把我实现的过程说明一下:
1. 在要添加 OnShow 事件的 Frame 类中, 其 Private 域添加以下函数声明
// 手动编写的 OnShow 事件响应函数procedure CMShowingChanged(var M: TMessage); message CM_SHOWINGCHANGED;
2. 其实现部分为
// 手动编写的 OnShow 事件响应函数 procedure TFrmPageLayout.CMShowingChanged(var M: TMessage); begin inherited; if Showing then begin // 在这里写上 OnShow 的事件响应代码 end end;
注: delphi 的 Frame, 实在是一个代码复用，模块划分的好东东， 但其中也有太多不尽如意的地方。如 OnCreate, OnShow 等事件，都不能很方便的进行响应。