窗体不以modal显示,像模式一样控制

// 应用程序中,窗体不以modal显示,像模式一样控制

//PreViewHandle:=FindWindow(nil,Pchar(FrmPrint.Caption));

if FrmPreView<>nil then

  begin

    {                   //还原旧窗体  

    FrmPreView.Show;

    FrmPreView.Position :=poScreenCenter;

    FrmPreView.WindowState :=wsMaximized;

    exit;

    }

    FrmPreView.Close;   //产生新窗体

    FrmPreView.Free;  

  end;