鼠标上得小小问题！可是我不知道该怎么查文档 在线等。

Question

如何在程序中设置鼠标得状态
我想在鼠标放在一个Tquery组件上，鼠标变成一个小手。
pb我会做，但这个我就不知道了。
很简单吧！大侠们不要骂我。哈哈，在线等。

Answer 1

不过楼主啊，Tquery是不可见的啊，晕

Answer 2

procedure SetPointer(Ptr: Pointer; Size: Longint);
这个函数怎么调用啊

Answer 3

楼上得对不住了。
我是想把鼠标放在tquery得标题栏上鼠标变化，别得地方不变
在线等待。。

Answer 4

我也解决现公布代码
在此感谢 坛中人
procedure TFrm_Interface.DBG_InterMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var
  y_winth:integer;
begin
  y_winth:=DBG_inter.Height-(DBG_inter.ClientRect.Bottom-DBG_inter.ClientRect.Top);//标题栏得高度
  if (x >=DBG_inter.ClientRect.Top) and (x <= DBG_inter.ClientRect.Bottom) and (y >=DBG_inter.ClientRect.Top) and (y<= y_winth)then
    dbg_inter.cursor := crHandPoint
  else
    dbg_inter.cursor := crDefault;
end;