if ormsearch1<>nil then
  ormsearch1:=Tformsearch.create(Application);记得要在Tformsearch的onclose里写 self:=nil;

解决方案 »

  1.   

      if assigned(formsearch1) then
        formsearch1.show
      else
      begin
        ormsearch1:=Tformsearch.create(Application);
        ormsearch1.show;
      end; 
    然后在 Tormsearch 的 OnActive中编写刷新代码,成了!
      

  2.   

    以上的codes可以吗? only show? 
    不可以吗?
    可以吗?
    不可以吗?
    ...
    ..
    .
      

  3.   

    用assigned函数来判断窗口是否存在。
    if not Assigned(fmxxx) then
       fmxxx := Tfmxxx.Create(Self);
      fmxxx.Show;
    //下面写刷新的语句