关于TStringgrid的问题(2)(100分)

  • 主题发起人 主题发起人 TXJ
  • 开始时间 开始时间
T

TXJ

Unregistered / Unconfirmed
GUEST, unregistred user!
1、TStringgrid的OnClick事件响应条件是设置.col和.row或单击TStringgrid,
但我想设置.col和.row时让它不响应此事件,该怎么办?
 
它两个是完全一样的,不好办。
 
以变量bClick来指示是否是单击StringGrid:
procedure TForm1.StringGrid1Click(Sender: TObject);
begin
if bClick then
begin
...
end;
end;

在设置.col和.row之前: bClick := False;
在设置.col和.row之后: bClick := True;
 
不用这么麻烦吧? 只要设置row,col之前:
stringgrid.OnClick:=nil;
之后再恢复过来不就可以了嘛!
 
在ONMOUSEDOWN中可以控制 .row .col
 
在MouseDown中用全局变量保存鼠标状态,在MouseUp中清除保存的鼠标状态,
这样,在click就可以判断是否真正的click了。
 
多人接受答案了。
 
后退
顶部