关于dbgrid的鼠标问题？

Question

当鼠标移到title上时，鼠标变成 ↓ 样怎么弄？

Answer 1

呵呵，我不知道正规的方法是什么，但是我的方法能够让它鼠标的形状变化
procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
    if (X>4)and(X<200)and(Y>0)and(Y<17) then DBGrid1.Cursor:=crHelp
    else DBGrid1.Cursor:=crHandPoint;
    Memo1.Lines.Add(inttostr(X)+#9+inttostr(Y));//这个语句可以帮你找到标题的区域
end;主要的意思就是，你可以在DBGrid中计算出标提栏的宽度和高度，当鼠标落在那个位置的时候就给鼠标形状赋成想要的形状。
呵呵，好像有点笨，但是可以实现，就是需要自己找到标题栏的区域范围，不知道和不和你的要求：）

Answer 2

在Delphi的Cursor Type中没有这个“↓”形状的鼠标样式，所以你需要把这个图案做成一个光标资源才行

Answer 3

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
    if (X>4)and(X<200)and(Y>0)and(Y<17) then DBGrid1.Cursor:=crHelp
    else DBGrid1.Cursor:=crHandPoint;
    Memo1.Lines.Add(inttostr(X)+#9+inttostr(Y));//这个语句可以帮你找到标题的区域
end;应该可以实现!