請問各位先進: 當我使用 delphi6 Query1(或 AdoQuery) 時, 若query1.open 時(擷取大量資料時),在 delphi 5 的版本,此時 的游標應為一個漏斗形狀,直到資料 Fetch OK,但在 Delphi 6 時, runtime 時期的游標仍為一個箭頭形狀,請問應如何設定 runtime 時期的游標? 否則 user 不知此時的程式是否仍為 Running; 謝謝!

引言:

您好： 您可以在 Query1的 BeforeOpen 的事件中下 Screen.Cursor := crHourGlass; //指定游標的形狀 然後在 AfterOpen 的事件中再將游標形狀改回預設值 Screen.Cursor := crDefault ; 我想這樣應該可以解決您的問題!!!

Thank, zing, 我已照你的方法 test OK! 再問一下, 若我想在 Query Runtime 時,show 個 progressbar 來代表 Fetch Data 的進度,應如何做??