急!大家来帮一下忙。谢谢啊！！ 很简单的一个问题，高分求救！

Question

我想在鼠标放到panel的控件的上面时候， 鼠标变成crhandpoint类型， 怎么做啊？？？？？？？？？？？？？？？？？？？？？

Answer 1

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
     Panel1.Cursor:=crhandpoint;
end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
    Form1.Cursor:= crDefault;
end;

Answer 2

procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Panel1.Cursor:=crHandPoint;
end;

Answer 3

设置Panel的属性
Panel1.cursor:=crHandPoint;

Answer 4

to eaglezhao(笨小子)
好像是 panel的Cursor属性