盒子论坛 v2.1

我把代码贴出来，主窗体中打开“订单资料记录“的代码为:
procedure TMainfrm.OR000Execute(Sender: TObject);
begin
  ShowNormalForm(TORCustOrderfrm,self,'ORCustOrderfrm',TForm(ORCustOrderfrm));
end;

在unit SysPublic中有过程ShowNormalForm和函数CheckRunForm的代码;

procedure ShowNormalForm(FormClass: TBaseFormClass; ParentFrom: TForm; FunctionName: string; var Form: TForm);
begin
  if CheckRunForm(FunctionName) then //检查权限
  begin
    if not Assigned(Form) then
      Form := FormClass.CreateWithFunction(ParentFrom,FunctionName);
    Form.Show;
  end
  else
    application.MessageBox('您无权对此项进行操作！','警告',64);
end;

function CheckRunForm(FunctionName: string): Boolean;
begin
  Result := False;
  with Frmdata.spUserRight do
  if Locate('FunctionName',FunctionName,[]) then
  begin
    if FieldByName('fAll').AsBoolean then
      Result := True
    else if FieldByName('fRead').AsBoolean then
      Result := True ;
  end;
end;

订单窗体TORCustOrderfrm中有关闭窗体时设为空
procedure TORCustOrderfrm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  ORCustOrderfrm:=nil;
end;

其中TORCustOrderfrm的父窗体为TBasefrm
有一个来构造函数
Constructor TBasefrm.CreateWithFunction(AOwner: TComponent; FunctionName:String);
begin
  sFunctionName:=FunctionName;
  Inherited Create(AOwner);
end;

基本上关键的代码就上面这些了
现的问题是，进入主窗体后，第一次打开“订单资料记录”窗体不会出错，关闭
“订单资料记录”窗体也不会出错，再次打开“订单资料记录”窗体就不一定会出错（只是偶尔）。同样打开其他的窗体也会有这种情况，频率有时一天会出错几次，有时几天才会出错一次，请有这方面经验的朋友指点一下。
----------------------------------------------
piao

作者：

smonkey421 (猩猩)	★☆☆☆☆	-
	盒子活跃会员

2013/6/17 17:33:49

5楼：

一般来说，你这个问题应该是某个对象未被实例化，直接访问了空指针。
----------------------------------------------
俺很菜，但俺很执着！！！

信息

登陆以后才能回复