Delphi中模態窗口切換時隱藏問題的解決辦法

問題 現象：

    彈出模態窗體，切換到Window其他窗口，再回到程序界面，發現界面無法點擊，模態窗口被遮蓋在後邊了

解決辦法：

  TForm1   =   class(TForm)  

      protected  
          procedure   CreateParams(var   Params:   TCreateParams);   override;  
      end;  
   
  procedure   TForm1.CreateParams(var   Params:   TCreateParams);  
  begin  
      inherited;  
      Params.WndParent     :=     目標窗口.handle;  
  end;