我的query是下列
'DBCC SHRINKDATABASE(' database_name ')';
此行是壓縮資料庫，所以會跑很久，有時候太大，甚至跑到半小時。所以我想加個進度，文字也好progress也好。
但是在ADOQuery事件onfetchprogress用時無動作。所以現在不知道要如何來處理。

如果你要直接在Query上做其實不容易達成，換另一個方向來看，在Open前先啟動一個Timer，Timer中每隔一秒跑一次ProgressBar 或顯示進度等，在Open之後關閉Timer，一樣可以達到你的需求

應該無解! 你怎麼會知道執行的時間會多久?不過這個例子應該用另一個執行緒來執行
免得使用者以為程式當掉了, 主視窗收到執行緒結束時, 才可以讓使用者關閉!
在執行緒結束之前, 隨便您要怎麼顯示都可以! 顯示 像 IE 的 動畫圖示...
或者顯示預估的進度列? 用上次的時間才預估! ...