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

来源:互联网  时间:2016/7/9 20:28:10

关于网友提出的“ 如何禁止和启用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);

上一篇application是怎么创建出来的?
下一篇如何做一个系统忙时显示的窗口,以便此时用户不能进行其它操作?
明星图片
相关文章
《 如何禁止和启用dbgrid的鼠标双击事件?》由码蚁之家搜集整理于网络,
联系邮箱:mxgf168#qq.com(#改为@)