DelphiXE设置光标

Delphi XE设置缺省光标方式：
screen.Cursor := -17;
{光标可选值: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);
}

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！