Sephil的自由空间

摘要： 按照习惯，我们的程序在执行时间比较长的时候一般需要把光标设置成漏斗的样子，执行完操作再换回来。 如： Screen.Cursor := crHourGlass; // Do somthing Screen.Cursor := crDefault; 但是中间我们要考虑到，万一执行中出现错误，那么最后一句的 Screen.Cursor := crDefault 也就执行不到了，光标不会变回原来... 阅读全文