全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1811
推到 Plurk!
推到 Facebook!

如何正常顯示動畫

答題得分者是:leveon
blue
中階會員


發表:113
回覆:101
積分:52
註冊:2002-04-15

發送簡訊給我
#1 引用回覆 回覆 發表時間:2012-06-28 11:52:43 IP:122.146.xxx.xxx 訂閱
Hi,各位先進大家好:
小弟在Form中要作一連串檢查步驟,
在各檢查項目時希望在畫面上該步驟前面顯示一動畫(例如TAnimate or GIF),
可實際上,該動畫卻是不會動,直到該項檢查完成才看到閃了一下,
小弟試著將動畫的部份作成另一Thread也沒有作用,
小弟該如何處理?
謝謝!
leveon
資深會員


發表:29
回覆:386
積分:303
註冊:2012-02-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2012-06-28 14:51:53 IP:118.165.xxx.xxx 訂閱
 用Thread處理絕對有用
請參閱
http://www.swissdelphicenter.ch/torry/showcode.php?id=1887

GrandRURU
站務副站長


發表:234
回覆:1651
積分:1742
註冊:2005-06-21

發送簡訊給我
#3 引用回覆 回覆 發表時間:2012-06-28 15:07:52 IP:59.120.xxx.xxx 未訂閱
blue
中階會員


發表:113
回覆:101
積分:52
註冊:2002-04-15

發送簡訊給我
#4 引用回覆 回覆 發表時間:2012-06-29 08:32:46 IP:122.146.xxx.xxx 訂閱
Hi,感謝 leveon & GrandRURU 大大的回應:
但是這樣作在跑檢查程序時,該動畫都是 停止不動的,
只有在沒有程序在跑的時候,動畫檔才會正常的"動",
謝謝!

===================引 用 GrandRURU 文 章===================
何不用TGIFImage元件呢?

http://delphi.ktop.com.tw/board.php?cid=168&fid=921&tid=31622
GrandRURU
站務副站長


發表:234
回覆:1651
積分:1742
註冊:2005-06-21

發送簡訊給我
#5 引用回覆 回覆 發表時間:2012-06-29 08:52:00 IP:59.120.xxx.xxx 未訂閱
你的問題我試不出來...

你要不要試著將你的動畫檔放到另一個Form做顯示

===================引 用 blue 文 章===================
Hi,感謝 leveon & GrandRURU 大大的回應:
但是這樣作在跑檢查程序時,該動畫都是 停止不動的,
只有在沒有程序在跑的時候,動畫檔才會正常的"動",
謝謝!
blue
中階會員


發表:113
回覆:101
積分:52
註冊:2002-04-15

發送簡訊給我
#6 引用回覆 回覆 發表時間:2012-06-29 09:42:15 IP:122.146.xxx.xxx 訂閱
Hi,感謝 GrandRURU 大大的回應:
小弟要做這樣子:
1.檢查網路是否是可通的,
2.連結到某網站(檢查是否可連通)
3.登入網站
4.取得所需資料
.....
每一項檢查的時候,前面就顯示的一個旋轉的動畫(例如GIF或AVI檔)表示"作業中"
但,實際上,例如第3項可能耗時3秒,結果,該動畫就停止不動3秒,
試過將動畫以另一個Thread,也是一樣停止不動3秒,
只有將各個檢查步驟作成另一個Thread,該動畫才會是正常的
謝謝!

===================引 用 GrandRURU 文 章===================
你的問題我試不出來...

你要不要試著將你的動畫檔放到另一個Form做顯示

===================引 用 blue 文 章===================
Hi,感謝 leveon & GrandRURU 大大的回應:
但是這樣作在跑檢查程序時,該動畫都是 停止不動的,
只有在沒有程序在跑的時候,動畫檔才會正常的"動",
謝謝!
leveon
資深會員


發表:29
回覆:386
積分:303
註冊:2012-02-12

發送簡訊給我
#7 引用回覆 回覆 發表時間:2012-06-29 10:08:57 IP:118.165.xxx.xxx 訂閱
我貼的連結你試過了嗎?

ani : TAnimationThread;
r := panel1.clientrect;
ani := TanimationThread.Create(panel1, r, panel1.color, clBlue, 25);
Application.ProcessMessages;
// replace with query.Open or such -----> 換成你要的檢查
ani.Terminate;
ShowMessage('Done');





===================引 用 blue 文 章===================
Hi,感謝 GrandRURU 大大的回應:
小弟要做這樣子:
1.檢查網路是否是可通的,
2.連結到某網站(檢查是否可連通)
3.登入網站
4.取得所需資料
.....
每一項檢查的時候,前面就顯示的一個旋轉的動畫(例如GIF或AVI檔)表示"作業中"
但,實際上,例如第3項可能耗時3秒,結果,該動畫就停止不動3秒,
試過將動畫以另一個Thread,也是一樣停止不動3秒,
只有將各個檢查步驟作成另一個Thread,該動畫才會是正常的
謝謝!

===================引 用 GrandRURU 文 章===================
你的問題我試不出來...

你要不要試著將你的動畫檔放到另一個Form做顯示

===================引 用 blue 文 章===================
Hi,感謝 leveon & GrandRURU 大大的回應:
但是這樣作在跑檢查程序時,該動畫都是 停止不動的,
只有在沒有程序在跑的時候,動畫檔才會正常的"動",
謝謝!
GrandRURU
站務副站長


發表:234
回覆:1651
積分:1742
註冊:2005-06-21

發送簡訊給我
#8 引用回覆 回覆 發表時間:2012-06-29 11:19:49 IP:59.120.xxx.xxx 未訂閱
Form2.Show;
Form2.Update; // <-- TGifImage in here
try
DB.Connect;
Table1.Open;
finally
Form2.Close;
end;
.
.
.

參考資料來源:loading form in another thread

===================引 用 blue 文 章===================
Hi,感謝 GrandRURU 大大的回應:
小弟要做這樣子:
1.檢查網路是否是可通的,
2.連結到某網站(檢查是否可連通)
3.登入網站
4.取得所需資料
.....
每一項檢查的時候,前面就顯示的一個旋轉的動畫(例如GIF或AVI檔)表示"作業中"
但,實際上,例如第3項可能耗時3秒,結果,該動畫就停止不動3秒,
試過將動畫以另一個Thread,也是一樣停止不動3秒,
只有將各個檢查步驟作成另一個Thread,該動畫才會是正常的
謝謝!

===================引 用 GrandRURU 文 章===================
你的問題我試不出來...

你要不要試著將你的動畫檔放到另一個Form做顯示

===================引 用 blue 文 章===================
Hi,感謝 leveon & GrandRURU 大大的回應:
但是這樣作在跑檢查程序時,該動畫都是 停止不動的,
只有在沒有程序在跑的時候,動畫檔才會正常的"動",
謝謝!
blue
中階會員


發表:113
回覆:101
積分:52
註冊:2002-04-15

發送簡訊給我
#9 引用回覆 回覆 發表時間:2012-06-29 11:38:48 IP:122.146.xxx.xxx 訂閱
Hi,感謝 leveon 大大的回應:
原先測試Panel1完全沒有變化,
剛試了將 Brush.Color := FbkColor;
// FillRect(imagerect);
是可以看到 Panel1 的變化了,
但,小弟在該Thread加入的 TAnimate無法動,
是只能使用Image去自行畫出我要的動畫囉?
謝謝!

===================引 用 leveon 文 章===================
我貼的連結你試過了嗎?

ani:TAnimationThread;
r:=panel1.clientrect;
ani:=TanimationThread.Create(panel1,r,panel1.color,clBlue,25);
Application.ProcessMessages;
//replacewithquery.Openorsuch -----> 換成你要的檢查
ani.Terminate;
ShowMessage('Done');





===================引 用 blue 文 章===================
Hi,感謝 GrandRURU 大大的回應:
小弟要做這樣子:
1.檢查網路是否是可通的,
2.連結到某網站(檢查是否可連通)
3.登入網站
4.取得所需資料
.....
每一項檢查的時候,前面就顯示的一個旋轉的動畫(例如GIF或AVI檔)表示"作業中"
但,實際上,例如第3項可能耗時3秒,結果,該動畫就停止不動3秒,
試過將動畫以另一個Thread,也是一樣停止不動3秒,
只有將各個檢查步驟作成另一個Thread,該動畫才會是正常的
謝謝!

===================引 用 GrandRURU 文 章===================
你的問題我試不出來...

你要不要試著將你的動畫檔放到另一個Form做顯示

===================引 用 blue 文 章===================
Hi,感謝 leveon & GrandRURU 大大的回應:
但是這樣作在跑檢查程序時,該動畫都是 停止不動的,
只有在沒有程序在跑的時候,動畫檔才會正常的"動",
謝謝!
leveon
資深會員


發表:29
回覆:386
積分:303
註冊:2012-02-12

發送簡訊給我
#10 引用回覆 回覆 發表時間:2012-06-29 12:07:08 IP:118.165.xxx.xxx 訂閱
 動畫是多張圖 連續撥放得到的效果
你可以放一個ImageList 裡面放多張圖
圖的來源可以用Gif的製作軟體拆成多張

Image:= TBitmap.Create;
ImageList.GetBitmap(0, Image );
系統時間:2017-10-24 4:46:19
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!