【结帖】有关调用业务信息的问题**

chen20501157

情况是这样的:
   我窗体里有一个DATAGRID用于显示项目信息,希望双击DATAGRID中的一列弹出一个窗体用显示该项目的详细信息.
在数据集中创建了相应的信息,功能中创建了详细信息的窗口.
问题是:
        在窗体中没有datagrid的onclick事件,只能是在窗体中调用业务信息中的datagrid的onclick事件.
请问具体的实施步骤:?

chen20501157

写了一段代码,,直接写在窗体中无法使用.
procedure XKZAPPLY_INFO.TXKZMX_Sheet(DocViewXKZAPPLY_INFO_XKZMX_SHEET.DOC).DataGrid.OnClick(Sender: TObject);
var

  lForm:  TXKZMX_Form;
begin
  lForm :=  TXKZMX_Form.Create(self.Context);
  try
    lForm.ShowModal;
  finally
    lForm.Free;
  end;
  end;

jiahaiminghr

http://bbs.justep.com/forum.php?mod=viewthread&tid=19156

chen20501157

我写了如下代码
procedure DataGridDblClick(Sender: TObject);
var
  lForm:  TXKZMX_Form;
begin
lForm :=  TXKZMX_Form.Create(self.Context);
  try
    lForm.ShowModal;
  finally
    lForm.Free;
end;
end;




procedure TXKZApply_Form.BizFormCreate(Sender: TObject);
begin
  XKZAPPLY_INFO.TXKZMX_Sheet(DocViewXKZAPPLY_INFO_XKZMX_SHEET.DOC).DataGrid.OnDblClick:= DataGridDblClick;
end;
但是编译时出错
[错误]Biz:\JMGLXT\XKZMANAGE\XKZAPPLY_FUNC.FUNC.DIR\XKZApply_Form.Form.pas(82, 31): Undeclared identifier "self"
[错误]Biz:\JMGLXT\XKZMANAGE\XKZAPPLY_FUNC.FUNC.DIR\XKZApply_Form.Form.pas(25, 15): 'TXKZApply_Form.DataGridDblClick' 过程声明了,但没有实现

jiahaiminghr

http://www.baidu.com/s?wd=delphi+self&cl=3

chen20501157

OK! 搞定了.
谢谢~