更改當前鼠標的形狀

Screen->Cursor = crDefault;

Screen->Cursor = crCross;

Screen->Cursor = crArrow;

Screen->Cursor = crHelp;

Screen->Cursor = crHourGlass;

Screen->Cursor = crSQLWait;