鼠标指针形状
Screen.Cursor :=
改变大小
Result := crSizeNWSE //斜下 Result := crSizeNS // 上下 Result := crSizeNESW 斜上 Result := crSizeWE; //左右
crHandPoint
