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;