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;