delphi frame 添加 create onshow 事件

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;