delphi frame  添加 create onshow 事件

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

 

复制代码
procedure CMShowingChanged(var M: TMessage); message CM_SHOWINGCHANGED;  
 // 手动编写的 OnShow 事件响应函数  
 procedure TFrmPageLayout.CMShowingChanged(var M: TMessage);  
 begin  
     inherited;  
  
     if Showing then  
     begin  
       // 在这里写上 OnShow 的事件响应代码  
     end  
end; 
复制代码

 

posted on   lypzxy  阅读(848)  评论(0编辑  收藏  举报
努力加载评论中...
点击右上角即可分享
微信分享提示