T TXJ Unregistered / Unconfirmed GUEST, unregistred user! 2000-01-26 #1 1、TStringgrid的OnClick事件响应条件是设置.col和.row或单击TStringgrid, 但我想设置.col和.row时让它不响应此事件,该怎么办?
X xWolf Unregistered / Unconfirmed GUEST, unregistred user! 2000-01-26 #3 以变量bClick来指示是否是单击StringGrid: procedure TForm1.StringGrid1Click(Sender: TObject); begin if bClick then begin ... end; end; 在设置.col和.row之前: bClick := False; 在设置.col和.row之后: bClick := True;
以变量bClick来指示是否是单击StringGrid: procedure TForm1.StringGrid1Click(Sender: TObject); begin if bClick then begin ... end; end; 在设置.col和.row之前: bClick := False; 在设置.col和.row之后: bClick := True;
C cAkk Unregistered / Unconfirmed GUEST, unregistred user! 2000-01-26 #4 不用这么麻烦吧? 只要设置row,col之前: stringgrid.OnClick:=nil; 之后再恢复过来不就可以了嘛!
R robertcool Unregistered / Unconfirmed GUEST, unregistred user! 2000-01-26 #5 在ONMOUSEDOWN中可以控制 .row .col
S saintor Unregistered / Unconfirmed GUEST, unregistred user! 2000-01-26 #6 在MouseDown中用全局变量保存鼠标状态,在MouseUp中清除保存的鼠标状态, 这样,在click就可以判断是否真正的click了。