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;