procedure TForm2.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Screen.Cursor := -2;
end;
这是一个鼠标移动触发事件  Screen.Cursor := -2;这是代表什么? 数字的大小在使用中会有什么区别?

解决方案 »

  1.   

    const
      crDefault     = TCursor(0);
      crNone        = TCursor(-1);
      crArrow       = TCursor(-2);
      crCross       = TCursor(-3);
      crIBeam       = TCursor(-4);
      crSize        = TCursor(-22);
      crSizeNESW    = TCursor(-6);
      crSizeNS      = TCursor(-7);
      crSizeNWSE    = TCursor(-8);
      crSizeWE      = TCursor(-9);
      crUpArrow     = TCursor(-10);
      crHourGlass   = TCursor(-11);
      crDrag        = TCursor(-12);
      crNoDrop      = TCursor(-13);
      crHSplit      = TCursor(-14);
      crVSplit      = TCursor(-15);
      crMultiDrag   = TCursor(-16);
      crSQLWait     = TCursor(-17);
      crNo          = TCursor(-18);
      crAppStart    = TCursor(-19);
      crHelp        = TCursor(-20);
      crHandPoint   = TCursor(-21);
      crSizeAll     = TCursor(-22);