更具體的說明可以參看以下兩處:

這裡只把我實現的過程說明一下:

1. 在要新增 OnShow 事件的 Frame 類中, 其 Private 域新增以下函式宣告

// 手動編寫的 OnShow 事件響應函式
procedure CMShowingChanged(var M: TMessage); message CM_SHOWINGCHANGED;

2. 其實現部分為

  // 手動編寫的 OnShow 事件響應函式
  procedure TFrmPageLayout.CMShowingChanged(var M: TMessage);
  begin
      inherited;
 
      if Showing then
      begin
        // 在這裡寫上 OnShow 的事件響應程式碼
      end
 end;
 

注: delphi 的 Frame, 實在是一個程式碼複用，模組劃分的好東東， 但其中也有太多不盡如意的地方。如 OnCreate, OnShow 等事件，都不能很方便的進行響應。