delphi-为Frame添加OnShow事件响应函数

https://www.cnblogs.com/Gufan/archive/2011/09/06/2538932.html

更具体的说明可以参看以下两处:

 http://manztiara.wordpress.com/2009/10/06/delphi-frame-whats-going-on/

 http://www.delphifr.com/codes/TFRAME-ONSHOW-ONHIDE_51610.aspx

 

这里只把我实现的过程说明一下:

1. 在要添加 OnShow 事件的 Frame 类中, 其 Private 域添加以下函数声明

[delphi] view plaincopyprint?

1. // 手动编写的 OnShow 事件响应函数  
2. procedure CMShowingChanged(var M: TMessage); message CM_SHOWINGCHANGED;  

2. 其实现部分为

[delphi] view plaincopyprint?

1.  // 手动编写的 OnShow 事件响应函数  
2.  procedure TFrmPageLayout.CMShowingChanged(var M: TMessage);  
3.  begin  
4.      inherited;  
5.   
6.      if Showing then  
7.      begin  
8.        // 在这里写上 OnShow 的事件响应代码  
9.      end  
10. end;  

注: delphi 的 Frame, 实在是一个代码复用，模块划分的好东东， 但其中也有太多不尽如意的地方。如 OnCreate, OnShow 等事件，都不能很方便的进行响应。