想請問各位大大
我的程式在執行時...因為需要一些時間
想問一下有什麼辦法可以讓在等待時,滑鼠的箭頭圖示變成漏斗或是其他圖示
就像是我們使用word再存檔時會跑出漏斗的概念一樣
或者是該用什麼元件以及該怎麼寫程式讓以下的圖示在程式執行時出現?
感謝大大的不吝賜教^^

問題一：
try
{
Screen->Cursor = crHourGlass;
// .....your code
}
__finally
{
// .....your code
Screen->Cursor = crDefault;
}
問題二：
沒看見你的圖！

感謝大大的回應
回答一中
try
{
Screen->Cursor=crHourGlass;
//...your code
}
_finally
{
//....your code
Screen->Cursor=crDefault;
}
這個部份是寫在我要執行程式時所案的Button鑑內就可以對嗎?
your code部分是說將相同的code複製就可嗎?
我剛剛去試的結果,發現執行時間變成原本執行時間的2倍><
而且自從我按了那個button後...滑鼠箭頭的標誌就一直都是漏斗了圖案了....
我只有想要在執行時間箭頭變漏斗...執行完隻後滑鼠會再變回箭頭圖案
不好意思~~可能我沒有說清楚
後來我改成
try
{
Screen->Cursor=crHourGlass;
//...your code
}
_finally
{
Screen->Cursor=crDefault;
}
就解決了時間跟漏斗一直顯示的問題了^^
感謝大大的指導
至於問題二中的圖
就是我們在儲存類似word檔時...
在狀態列中有綠色的格子在跑動的樣子....
這是有什麼原件可以用嗎?
我不知道位什麼我貼上去的圖片看不到...不好意思

1.上面的螢幕物件Screen寫法不會錯，你的錯誤訊息是發生在哪裡，請自行DEBUG出來，或許把你認為有問題的部分CODE貼出來看看。
2.用來顯示目前進度的物件，可以使用Porgress Bar或者是 Status Bar。使用Progress Bar可依照算出來的數據，分別設定 Max, Min , Position等屬性，而Status Bar就要用"畫"的，比較不好設計！另外CGauge也是一種選擇。
3.請參考！