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

Question

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

Answer 1

不要使用 dbgrid.enabled:=false; 这个属性，因为这时候dbgrid里的数值会变灰色，不便于阅读！

Answer 2

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

Answer 3

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.

Answer 4

DBG2.OnDbClick:=DBG2.OnDBlClick(Self);这个不行，语法问题