【搞定】请问，再业务功能中，如何捕获信息中的dbgrid的click事件？？**

SH_XL_ZHUFO

请问，再业务功能中，如何捕获信息中的dbgrid的click事件？？
如图

atiger

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

SH_XL_ZHUFO

1、在功能窗体 实现DataGrid 的 ondbClick 事件，参考代码如下
procedure TMainForm.DataGridDblClick(Sender: TObject);
begin
  dialogs.ShowMessage('DataGrid  的 onDblClick');
end;

2、在功能窗体的 onShow 事件上，把DataGridDblClick 赋值给 DoCview1对应的DataGrid 的ondbClick事件，实现代码参考如下
YWXX1.TSJWG1(DocView1.doc).DataGrid.OnDblClick :=  DataGridDblClick;

这样就可以了

业务功能的 form 中未找到 ，DataGridDblClick 事件？？
我这里的版本是2819

alang

procedure TMainForm.DataGridDblClick(Sender: TObject);
begin
  dialogs.ShowMessage('DataGrid  的 onDblClick');
end;
这个函数就是你根据自己需要写了，如
procedure TMainForm.DataGridDblClick(Sender: TObject);
begin
  DocView2.Top := 0;
  DocView2.Left := 0;
  //...
end;

SH_XL_ZHUFO

明白了，谢谢，结贴