【搞定】[请求]DataNavigater问题**

beidou · 发表于 2007-7-17 08:41:52

一个主窗体中：一个DataNavigater和一个DocView；如何让此主窗体一登录就让DataNavigater处于可以应用状态，而不是先要触发一个控件才能使用

jiahaiminghr · 发表于 2007-7-17 09:08:40

只要让一个数据集或得输入焦点就可以了。

lixy · 发表于 2007-7-17 09:08:50

自动获得焦点就行了。

procedure TMainForm.BizFormShow(Sender: TObject);
begin
testgroup.TSJWG1(DocViewTESTGROUP_SJWG1.Doc).DataGrid.SetFocus;
end;

beidou · 发表于 2007-7-17 09:30:35

这样试过了，报no parent window的错误;并且是编译能通过，运行时报错no parent window

lixy · 发表于 2007-7-17 09:49:32

在功能上写代码

jiahaiminghr · 发表于 2007-7-17 10:00:45

unit MainForm;

interface

uses
  Business.System, Business.Model, Business.Forms, Business.Data;

type
  TMainForm = class(TForm)
FuncBroker: TFuncBroker;
InfoBrokerDDSQB: TInfoBroker;
ControlBar: TControlBar;
DataNavigator: TDataNavigator;
DocViewBar: TDocViewBar;
Panel: TPanel;
DocViewDDSQB_DDBG: TDocView;
Panel1: TPanel;
Edit1: TEdit;
DataSetBroker1: TDataSetBroker;
procedure BizFormShow(Sender: TObject);
  private
{private declarations}
  public
{public declarations}
  end;

implementation

procedure TMainForm.BizFormShow(Sender: TObject);
begin
  DocViewDDSQB_DDBG.SetFocus;
end;

end.

beidou · 发表于 2007-7-17 10:17:43

这中方式也写过：
我写的是：
if PageControl.TabIndex=1 then
contractinfo.setfocus;
但是还是不行；
如图：

jiahaiminghr · 发表于 2007-7-17 10:35:41

贴上你完整的代码我看看。

beidou · 发表于 2007-7-17 11:17:24

procedure TMAINFORM.PageControlChange(Sender: TObject);
var
  lID: String;
  lYear: String;
  lMonth: String;
  lYears: String;
  lMonths: String;
  lDataContractAppSet: TBizDataSet;
  lDataContractPlanPaymentSet: TBizDataSet;
begin
  if pageControl.TabIndex=1 then
CONTRACTMGR.TCONTRACTINFO(DocViewHTTZGL_HTTZ.Doc).SetFocus;

这样写编译没问题，运行也没问题，但是不起作用，dataNavigater还是灰色的

beidou · 发表于 2007-7-17 14:04:32

		自动登录	找回密码
密码			立即注册