如何禁止和启用dbgrid的鼠标双击事件？

关于网友提出的“ 如何禁止和启用dbgrid的鼠标双击事件？
”问题疑问，本网通过在网上对“ 如何禁止和启用dbgrid的鼠标双击事件？
”有关的相关答案进行了整理，供用户进行参考，详细问题解答如下：

问题： 如何禁止和启用dbgrid的鼠标双击事件？
描述:

dbgrid 有个鼠标双击事件，代码如下，如何在按button1时禁止这个事件产生作业，就是无论怎么双击dbgrid，该事件都不执行；然后按 button2 时就解除禁止，就是双击dbgrid 时事件开始执行！
procedure Tfrm.DBG2DblClick(Sender: TObject);
begin
showmessage('双击');
end;

---

解决方案1:

var
  Form1: TForm1;
  douclick:boolean=true;
implementation
{$R *.dfm}
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
  if douclick then
     showmessage('click')
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
   douclick:=false;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
   douclick:=true;
end;
end.

解决方案2:

DBG2OnDbClick:=Nil;
DBG2OnDbClick:=DBG2.OnDBClick(Self);