delphi鼠标状态

Screen.Cursor := crNo;