【结帖】关于表**

lanssm

OK，解决了，代码如下：
procedure TZCT.BizFormShow(Sender: TObject);
begin
     JYCLZHXX.TJYCLLB(DocViewJYCLZHXX_JYCLB.doc).DataGrid1.OnDblClick := DataGridDblClick;

end;

procedure TZCT.DataGridDblClick(Sender: TObject);
begin
     PageControl.ActivePage := TabSheet1;
end;

jiahaiminghr

谢谢楼主反馈！