執行這個程式時，程式畫面會淡入，結束時會淡出。 這是利用將Form的AlphaBlend屬性設成true，以及改變AlphaBlendValue的值來實作的。 顯示速度若覺得不符您意，可修改程式碼以達到您的要求。 僅在XP環境下測試過！ 提供Delphi7與BCB6程式碼與執行檔。

我剛試過了，效果不明顯(應該是完全感覺不出來)， 如果更改 sleep()數值，會delay很久，一樣看不出效果. 我的電腦是 P4 3.2G

想請教一下... 若是以BCB5.0撰寫, 這特效該怎麼做出來呢??? thanks!

海星，okeyla 大家好：    首先說明一下我的作業系統與開發環境： 作業系統：Windows XP professional 開發環境：C++ Builder 6.0 professional， Delphi 7    若依okeyla回應來看，應該能看到效果，但不知BCB5是否能開發？ 關於這一點，因目前目前沒有BCB5，而且我是利用Form的AlphaBlend屬性設成true，以及改變AlphaBlendValue的值來實作的，因此如果BCB5沒有相關屬性的話，那我也不知道如何去作。或許有會員可以提供範例供我們一起學習。< > 至於海星的提問，我就不知道原因了。或許是作業系統不同吧。 不好意思！兩位的回應均不能給予肯定的回答。< > RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====#####

在Win2000 Delphi7環境下 可以看到效果 謝了。。。

我想請問一下    Canvas->Rectangle(0,0,ClientWidth,ClientHeight); 為什麼要有這行呢 我實在是想不透!!! -- 我真的不懂啊??? 一年當五年用

------
一年當五年用

vengeance 您好：

引言: 我想請問一下 Canvas->Rectangle(0,0,ClientWidth,ClientHeight); 為什麼要有這行呢 我實在是想不透!!! -- 我真的不懂啊??? 一年當五年用 < face="Verdana, Arial, Helvetica"> 當視窗一開始淡入的時候，如果其上的元件沒有更新，那畫面上就看不見它們，所以為了讓它們出現在Form上，我呼叫了各元件的Refresh()，而Form如果不加上上述那行的話，則client區會是黑的。 所以我就...，事實的真相就是這樣囉。

但是我將 Canvas->Rectangle（0,0,ClientWidth,ClientHeight) 移除之後並沒發現什麼異樣,我是用XP BCB6 可能我的電腦上看不出所以然 不過還是謝謝你的回答~~ < > -- 新手上路,有錯請包涵< > 一年當五年用

------
一年當五年用

小弟試了一下效果!還不錯! 不過在淡入方面建議改一下: int k, step = 25; for (k = 0; k <= step; k ) { AlphaBlendValue = (int)(255/step*k); Sleep(30); Form1->Refresh(); } 效果會很不錯喔,也不需要// Canvas->Rectangle(0,0,ClientWidth,ClientHeight); 這鍋函數囉 ! 謝謝 richtop 的分享!