現在每天成千上萬的網民激情於沖浪很多朋友喜歡在網上搭個小窩建個網站建網站離不開設計網頁網頁要精彩離不開特效現在網上有一款最受大家歡迎的特效軟件名叫新新網頁特效該軟件提供的特效最多最全提供的特效最新最酷其實這樣一款優秀的軟件制作起來十分簡單如果你也想動手的話跟我來五步包你成品出廠
第一步
安裝一套Delphi 最好是中文版
搜集各種刊物或者是下載各種特效代碼都存為TXT文件
將這些特效文件分門別類存進相應的目錄中如鏈接類特效時間類特效文字類特效等等然後將這些目錄悉數放進一個Data目錄下
第二步
運行Delphi 新建一個工程打開一個窗體放置下列組件Combobox點擊Iitems屬性設置特效類別Filelistbox用於顯示特效名稱Memo用於顯示特效代碼Webbrowser用於特效預覽最後放置兩個Button按鈕並將其Caption屬性分別設置為復制代碼和特效預覽調整好各組件在窗體中的位置
第三步
實現用Filelistbox顯示特效名稱可以設置Combobox的Onchange事件讓類別改變時顯示相應類別的特效文件名稱
filelistboxdirectory:=(ExtractFilePath(ApplicationExename)+\data\+comboboxText+\);
在點擊特效名稱時在Memo窗口上顯示該特效的代碼可以設置Filelistbox的Onclick的事件
memoLinesLoadFromFile (filelistboxFileName);
第四步
每一款特效軟件都離不開復制代碼和特效預覽這兩項最基本的功能我們可以這樣實現雙擊復制代碼按鈕添加Onclick事件代碼
//當按下這個按鈕時
memoSelectAll;
//全選上特效代碼
memocopyToClipboard;
//將選上的特效代碼復制到剪貼板
同樣雙擊特效預覽按鈕添加Onclick事件代碼
MemoLinesSaveToFile(c:\temphtm);
//將Memo中的顯示代碼內容保存至一個臨時文件中
webbrowserNavigate(c:\temphtm);
//讓預覽窗格顯示特效預覽
第五步
點擊Shift+Ctrl+S保存點擊Ctrl+F編譯OK精彩軟件新鮮出爐
這樣編出來的軟件有三個優點
這是你的作品版權所有不得翻錄
升級簡單以後如果有新的特效只需復制下來並存為文本文件並拷貝至相應的特效類別目錄下即可
短小精悍上面提到的目前在網上大受歡迎的新新網頁特效就是這麼編出來的看這就是它的實現窗體
From:http://tw.wingwit.com/Article/program/Delphi/201311/8472.html