procedure SetTransparentForm (popupFrm:TForm;Color:TColor;AlphaBlendValue:Integer);var FrmTransparent: TFrmTransparentForm;begin  if not Assigned(FrmTransparent) then    FrmTransparent:=TFrmTransparentForm.Create(nil);  FrmTransparent.fPopupForm :=popupFrm;  //  FrmTransparent.Color :=TColor(Color);  //clTeal;//  FrmTransparent.AlphaBlendValue:=AlphaBlendValue;  FrmTransparent.FormStyle := fsNormal;  FrmTransparent.Visible := False;  FrmTransparent.ShowModal;   //弹出透明窗体  FreeAndNil(FrmTransparent);end;//以上代码在 exe中没有任何问题，当把代码移到公共包中后：//出现局部变量赋值异常（线程或主进程调用），各种调试测试，发现奇葩问题点，做以下调整和解释：//局部变量和全局变量 若不首先赋值 ：=nil 都会有异常。procedure SetTransparentForm (popupFrm:TForm;Color:TColor;AlphaBlendValue:Integer);var FrmTransparent: TFrmTransparentForm;begin  //------------方法一  FrmTransparent := nil;//用私有变量，若没有此句，此段会异常,估计局部变量引起的 。^_^  if not Assigned(FrmTransparent) then    FrmTransparent:=TFrmTransparentForm.Create(nil);  FrmTransparent.fPopupForm :=popupFrm;  //  FrmTransparent.Color :=TColor(Color);  //clTeal;//  FrmTransparent.AlphaBlendValue:=AlphaBlendValue;  FrmTransparent.FormStyle := fsNormal;  FrmTransparent.Visible := False;  FrmTransparent.ShowModal;   //弹出透明窗体  FreeAndNil(FrmTransparent);  //------------方法二  {FrmTransparentForm:=nil; //用全局变量，没有此句 会偶尔出现 cannot make a visible window  model；估计线程原因。  if not Assigned(FrmTransparentForm) then    FrmTransparentForm:=TFrmTransparentForm.Create(nil);  FrmTransparentForm.fPopupForm :=popupFrm;  //  FrmTransparentForm.Color :=TColor(Color);  FrmTransparentForm.AlphaBlendValue:=AlphaBlendValue;  FrmTransparentForm.FormStyle := fsNormal;  FrmTransparentForm.Visible := False;  FrmTransparentForm.ShowModal;   //弹出透明窗体  FreeAndNil(FrmTransparentForm); }end;