如何接管DataGrid的双击事件

atiger

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;

这样就可以了

atiger

其实还有好些类似的，例如 PageControl ，有两个 TableSheet  ，分别放了两个DocView，对应到两个DataGrid上，双击一页去切换到另一页，实现也一样

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

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