【搞定】代码控制TDocViewBar时的问题**

wnlx0626

现因客户需要,在2个页面切换时,要打印的格式不一样,查找BBS上相关的资料,写如下控制代码:

procedure TMerchantSetForm.PageControlOnChange(Sender:TObject);//gexh 2007-12-25
begin
  case MERCHANTSETINFO.TMerchantInfoFormDoc(docview1.Doc).kyPageControl1.ActivePageIndex of
  0:
  begin
    DocViewBar1.AutoDetect :=True;
    Docview1.SetFocus ;
  end ;
  1:
  begin
    DocViewBar1.AutoDetect :=False;
    DocViewBar1.DocView :=DocView3;
  end;
  end;
end;

在操作过程中,功能刚打开时,与从0切换到1时,再从1切换到0时,结果是正确的,但再从0切换到1时,DocViewBar1变为灰色了,请问这是怎么回事?

yancm

DocView3没有获得焦点吧。

wnlx0626

case MERCHANTSETINFO.TMerchantInfoFormDoc(docview1.Doc).kyPageControl1.ActivePageIndex of
  0:
  begin
    DocViewBar1.AutoDetect :=True;
    Docview1.SetFocus ;
  end ;
  1:
  begin
    DocViewBar1.AutoDetect :=False;
    DocViewBar1.DocView :=DocView3;
    DocView3.SetFocus ;
  end;
  end;

改成这样还是不行

yancm

设置AutoDectect属性后刷新一下
DocViewBar1.AutoDetect :=True;
DocViewBar1.Refresh;

wnlx0626

case MERCHANTSETINFO.TMerchantInfoFormDoc(docview1.Doc).kyPageControl1.ActivePageIndex of
  0:
  begin
    DocViewBar1.AutoDetect :=True;
    Docview1.SetFocus ;
    DocViewBar1.Refresh ;
  end ;
  1:
  begin
    DocViewBar1.AutoDetect :=False;
    DocViewBar1.DocView :=DocView3;
    DocView3.SetFocus ;
    DocViewBar1.Refresh;
  end;
  end;

还是不行

shangxy

case MERCHANTSETINFO.TMerchantInfoFormDoc(docview1.Doc).kyPageControl1.ActivePageIndex of
  0:
  begin
    Docview1.SetFocus ;
    DocViewBar1.AutoDetect :=False;
    DocViewBar1.AutoDetect :=True;
   //  DocViewBar1.Refresh ;
  end ;
  1:
  begin
    DocView3.SetFocus ;
    DocViewBar1.AutoDetect :=False;
    DocViewBar1.AutoDetect :=True;   
//   DocViewBar1.DocView :=DocView3;

    //DocViewBar1.Refresh;
  end;
  end;
这样看看

yancm

case MERCHANTSETINFO.TMerchantInfoFormDoc(docview1.Doc).kyPageControl1.ActivePageIndex of
  0:
  begin
    DocViewBar1.AutoDetect :=True;
    DocViewBar1.DocView :=nil;  //添加这句
    Docview1.SetFocus ;
    DocViewBar1.Refresh ;
  end ;
  1:
  begin
    DocViewBar1.AutoDetect :=False;
    DocViewBar1.DocView :=DocView3;
    DocView3.SetFocus ;
    DocViewBar1.Refresh;
  end;
  end;

wnlx0626

晕,解决了,要这样才行, 能说说为什么要在触发焦点放在前面吗?可以结了,谢谢
case MERCHANTSETINFO.TMerchantInfoFormDoc(docview1.Doc).kyPageControl1.ActivePageIndex of
  0:
  begin
    Docview1.SetFocus ;
    DocViewBar1.AutoDetect :=True;
   // DocViewBar1.Refresh ;
  end ;
  1:
  begin
    DocView3.SetFocus ;
    DocViewBar1.AutoDetect :=False;
    DocViewBar1.DocView :=DocView3;
    //DocViewBar1.Refresh;
  end;
  end;

yancm

7楼正解。
8楼这样能解决吗？那的确奇怪了。无解。

wnlx0626

呵呵,我用的是2809版本的,因为这个问题,在BBS上找过相关的资料,