窗体Showmedol 遇到的奇怪异常： cannot make a visible window model

//窗体Showmedol 遇到的奇怪异常： cannot make a visible window  model

//背景：ShowModal A窗体，A窗体再ShowModal B窗体；A是透明背景窗体，B是提示窗体；

//第一次使用该全局变量，使用完毕后，FreeAndNil，目的是不影响第二次使用（和重新初始化属性）

 if not Assigned(frmAd) then

            frmAd := TfrmAd.Create(nil);

          frmAd.SetUrl(r46002.Data.URL);

          if not Assigned(FrmChangePWTransparent) then

            FrmChangePWTransparent:=TFrmChangePWTransparent.Create(nil);

          FrmChangePWTransparent.fPopupForm :=frmAd;

          //FrmChangePWTransparent.FormStyle := fsNormal;

          //FrmChangePWTransparent.Visible := False;

          FrmChangePWTransparent.ShowModal;

          FreeAndNil(FrmChangePWTransparent);

//第二次使用

 if not Assigned(frmRemind) then

        frmRemind := TfrmRemind.Create(nil);

      if not Assigned(FrmChangePWTransparent) then

        FrmChangePWTransparent:=TFrmChangePWTransparent.Create(nil);

      FrmChangePWTransparent.fPopupForm :=frmRemind;

      //FrmChangePWTransparent.FormStyle := fsNormal;

      //FrmChangePWTransparent.Visible := False;

      FrmChangePWTransparent.ShowModal;   //弹出透明窗体

      FreeAndNil(FrmChangePWTransparent);

//但是会弹出异常 cannot make a visible window  model ，

//百度了解：http://blog.sina.com.cn/s/blog_4b5f4fbc0100kt5p.html

//修改：加多两句，如上面去掉注释。

    FrmChangePWTransparent.FormStyle := fsNormal;

    FrmChangePWTransparent.Visible := False;

//还是无法解决问题。

//解决：后来想既然是 make a visible window  model，猜想第一次使用完后 FrmChangePWTransparent 全局变量没有完全释放【很奇怪】，

//别人就 另立 一个变量，解决问题。经验呀。

    var FrmTransparent: TFrmChangePWTransparent;

    if not Assigned(frmRemind) then

        frmRemind := TfrmRemind.Create(nil);

      if not Assigned(FrmTransparent) then

        FrmTransparent:=TFrmChangePWTransparent.Create(nil);

      FrmTransparent.fPopupForm :=frmRemind;  //

      FrmTransparent.FormStyle := fsNormal;

      FrmTransparent.Visible := False;

      FrmTransparent.ShowModal;   //弹出透明窗体

      FreeAndNil(FrmTransparent);