如题,大家帮帮我啊,非常感谢!

解决方案 »

  1.   

    if not Assigned(frmShowHtml) then frmShowHtml:= TfrmShowHtml.Create(Self);
      

  2.   

    if not assigned(FrmMdi) then
    application.CreateForm(TFrmMDI,FrmMDI);
    FrmMDI.show;
      

  3.   

    if  assigned(credit) then
            begin
              //showmessage('exist');
              credit.show;
            end
            else
            begin
              credit:=Tcredit.Create(self);
              credit.show;
            end;
    credit是个子窗体,我这样写的,当free了credit以后,再点击按钮却不会出现这个窗体了,我的代码有问题吗?
      

  4.   

    不仅要free 还要=Nil才行.
      

  5.   

    最简单直接判断窗体的对象的值if credit=nil then 
      credit:=tcredit.Create(self);
    credit.show;不过,在credit窗体关闭的时候就要在Close时间里增加
    action:=Cafree;
    credit:=nil;