TScreen 类 - 通过 Screen 更换光标

//更换窗体或某个控件的光标可以不通过 Screen 对象, 譬如:

begin

  Self.Cursor := crAppStart;

  Panel1.Cursor := crHandPoint;

{光标可选值:

  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);

}

//其中 crDefault 是默认光标

end;

---

//使用 Screen 更换光标, 是给本程序的全局更换光标, 譬如:

begin

  Screen.Cursor := crSize;

end;

---

//如果让控件有不同的光标, Screen.Cursor 必须是默认值, 也就是:

Screen.Cursor := crDefault;

---