如何得到当前光标的形状？

Question

我有一个StringGrid控件，列可以ReSize,
当鼠标移动到两列之间的标题头的时候，光标变成ReSize形状，此时我得到的还是crDefault值0，而不是我想要的－14，我用乐两种方法，都不行：
1：Mycursor:=StringGrid1.cursor;
2: Mycursor:=Screen.cursor;
这辆中都不行，如何解决？
还有就是ReSize消息StringGrid没有，如何捕获？

Answer 1

//本程序内的窗体有效～～procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  vHandle: HCURSOR;
begin
  vHandle := GetCursor;
  for I := crSizeAll to crArrow do
    if vHandle = Screen.Cursors[I] then
      Caption := IntToStr(I);
end;