关于网友提出的“ 如何禁止和启用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.
DBG2OnDbClick:=Nil;
DBG2OnDbClick:=DBG2.OnDBClick(Self);