两个问题?

[chengxuejun1]

1. Dbgrid中有两字段(编号,小计) 如何实现当鼠标放在小计显示区域时鼠标自动变成手形状?
2.如何实现当鼠标放在某一行,那一行就改变颜色?

[outer2000]

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (x<=40) and (x>=0) then
dbgrid1.Cursor:=crhelp
else
dbgrid1.Cursor:=crdefault;
end;