【结贴】datagrid 根据列来改变光标形状

webcrow · 发表于 2010-8-31 13:47:39

比如在datagrid中鼠标在第一列是箭头在第二列就是手型？怎么实现

wuchao · 发表于 2010-8-31 16:11:46

正在尝试解决，找到办法会跟帖回复

zhangxupeng · 发表于 2010-8-31 16:35:58

在DataGrid的OnMouseMove事件里用DataGrid的GetColumnAt 这个方法试试

webcrow · 发表于 2010-9-1 08:48:45

能写个简单的例子吗？谢了

zhangxupeng · 发表于 2010-9-1 08:55:26

做了一个简单的例子，参考一下吧
procedure TCT2.DataGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if DataGrid1.GetColumnAt(X,Y)=nil then exit;
if DataGrid1.GetColumnAt(X,Y).ColIndex = 0 then
begin
datagrid1.Cursor := business.Forms.Controls.crCross ;
end
else
if DataGrid1.GetColumnAt(X,Y).ColIndex = 1 then
begin
DataGrid1.Cursor := business.Forms.Controls.crHelp ;
end
else
begin
DataGrid1.Cursor := business.Forms.Controls.crDrag ;
end;
end;

webcrow · 发表于 2010-9-1 09:03:44

太感谢了！！！

		自动登录	找回密码
密码			立即注册