劉夫之

　　現(xiàn)在每天成千上萬(wàn)的網(wǎng)民激情于沖浪，很多朋友喜歡在網(wǎng)上搭個(gè)小窩，建個(gè)網(wǎng)站。建網(wǎng)站離不開(kāi)設(shè)計(jì)網(wǎng)頁(yè)，網(wǎng)頁(yè)要精彩離不開(kāi)特效。現(xiàn)在網(wǎng)上有一款最受大家歡迎的特效軟件，名叫“新新網(wǎng)頁(yè)特效”，該軟件提供的特效最多最全，提供的特效最新最酷。其實(shí)這樣一款優(yōu)秀的軟件，制作起來(lái)十分簡(jiǎn)單，如果你也想動(dòng)手的話，跟我來(lái)，五步包你“成品出廠”。


　　第一步：


　　1、安裝一套Delphi 6.0，最好是中文版。

　　2、搜集各種刊物或者是下載各種特效代碼，都存為TXT文件。

　　3、將這些特效文件分門別類存進(jìn)相應(yīng)的目錄中，如“鏈接類特效”、“時(shí)間類特效”、“文字類特效”等等，然后將這些目錄悉數(shù)放進(jìn)一個(gè)Data目錄下。


　　第二步：


　　運(yùn)行Delphi 6.0，新建一個(gè)工程，打開(kāi)一個(gè)窗體，放置下列組件：Combobox。點(diǎn)擊“Iitems”屬性，設(shè)置特效類別，“Filelistbox”用于顯示特效名稱，“Memo”用于顯示特效代碼，“Webbrowser”用于特效預(yù)覽，最后放置兩個(gè)Button按鈕，并將其“Caption”屬性分別設(shè)置為“復(fù)制代碼”和“特效預(yù)覽”。調(diào)整好各組件在窗體中的位置。


　　第三步：


　　實(shí)現(xiàn)用“Filelistbox”顯示特效名稱，可以設(shè)置“Combobox”的“Onchange”事件，讓類別改變時(shí)顯示相應(yīng)類別的特效文件名稱：

　　filelistbox1.directory:=(ExtractFilePath(Application.Exename)+'\data\'+combobox1.Text+'\');

　　在點(diǎn)擊特效名稱時(shí)，在“Memo”窗口上顯示該特效的代碼，可以設(shè)置“Filelistbox”的“Onclick”的事件：

　　memo1.Lines.LoadFromFile (filelistbox1.FileName);


　　第四步：


　　每一款特效軟件都離不開(kāi)“復(fù)制代碼”和“特效預(yù)覽”這兩項(xiàng)最基本的功能，我們可以這樣實(shí)現(xiàn)，雙擊“復(fù)制代碼”按鈕，添加Onclick事件代碼：

　　//當(dāng)按下這個(gè)按鈕時(shí)

　　memo1.SelectAll;

　　//全選上特效代碼

　　memo1.copyToClipboard;

　　//將選上的特效代碼復(fù)制到剪貼板

　　同樣雙擊“特效預(yù)覽”按鈕，添加Onclick事件代碼：

　　Memo1.Lines.SaveToFile('c:\temp.htm');

　　//將Memo1中的顯示代碼內(nèi)容保存至一個(gè)臨時(shí)文件中

　　webbrowser1.Navigate('c:\temp.htm');

　　//讓預(yù)覽窗格顯示特效預(yù)覽


　　第五步：


　　點(diǎn)擊“Shift+Ctrl+S”保存，點(diǎn)擊“Ctrl+F9”編譯，OK，精彩軟件，新鮮出爐。

　　這樣編出來(lái)的軟件有三個(gè)優(yōu)點(diǎn)：

　　1、這是你的作品，版權(quán)所有，不得翻錄。

　　2、升級(jí)簡(jiǎn)單，以后如果有新的特效，只需復(fù)制下來(lái)，并存為文本文件，并拷貝至相應(yīng)的特效類別目錄下即可。

　　3、短小精悍，上面提到的目前在網(wǎng)上大受歡迎的“新新網(wǎng)頁(yè)特效”就是這么編出來(lái)的，看，這就是它的實(shí)現(xiàn)窗體。