用Delphi做自己的网页特效软件
    “金瑞数据恢复” 是内蒙古呼和浩特市金瑞电脑维修部的数据恢复服务品牌。致力于为广大客户提供数据恢复、备份、保密数据销毁服务。

    首家通过内蒙古呼和浩特市工商、税务注册登记的电脑芯片级维修提供商。维修部旗舰站点……金瑞电脑维修网，秉承以人为本的服务理念，经历了长期的维修、数据恢复实践,积累了丰富的经验，具备对广大行政机关、企事业单位、家庭用户全方位的维护维修能力和经验。也是唯一一家提供本地化服务的数据恢复服务提供商。

    成功为水利部牧区水利科学研究所，乔泰国土勘测技术有限公司，内蒙古大学，巴盟临河市大涌礼仪公司，北京国华电力鄂尔多斯准格尔项目处，呼和浩特铁通物流有限公司，内蒙古卫星通信集团等多家单位及个人恢复数据。
 更新时间：2007-08-08 

    成千上万的网民激情于冲浪，很多朋友喜欢在网上搭个小窝，建个网站。建网站离不开设计网页，网页要精彩离不开特效。现在网上有一款最受大家欢迎的特效软件，名叫“新新网页特效”，该软件提供的特效最多最全，提供的特效最新最酷。其实这样一款优秀的软件，制作起来十分简单，如果你也想动手的话，跟我来，五步包你“成品出厂”。

　　第一步：
硬盘有价，数据无价，与您寻觅那……失而复得的，欣喜！

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

　　 2、搜集各种刊物或者是下载各种特效代码，都存为TXT文件。

　　 3、将这些特效文件分门别类存进相应的目录中，如“链接类特效”、“时间类特效”、“文字类特效”等等，然后将这些目录悉数放进一个Data目录下。

　　 第二步：

　　 运行Delphi 6.0，新建一个工程，打开一个窗体，放置下列组件：Combobox。点击“Iitems”属性，设置特效类别，“Filelistbox”用于显示特效名称，“Memo”用于显示特效代码，“Webbrowser”用于特效预览，最后放置两个Button按钮，并将其“Caption”属性分别设置为“复制代码”和“特效预览”。调整好各组件在窗体中的位置。
　　第三步：

　　 实现用“Filelistbox”显示特效名称，可以设置“Combobox”的“Onchange”事件，让类别改变时显示相应类别的特效文件名称：

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

　　 在点击特效名称时，在“Memo”窗口上显示该特效的代码，可以设置“Filelistbox”的“Onclick”的事件：

　　 memo1.Lines.LoadFromFile (filelistbox1.FileName);

　　 第四步：

　　 每一款特效软件都离不开“复制代码”和“特效预览”这两项最基本的功能，我们可以这样实现，双击“复制代码”按钮，添加Onclick事件代码：

　　 //当按下这个按钮时

　　 memo1.SelectAll;

　　 //全选上特效代码

　　 memo1.copyToClipboard;

　　 //将选上的特效代码复制到剪贴板

　　 同样双击“特效预览”按钮，添加Onclick事件代码：

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

　　 //将Memo1中的显示代码内容保存至一个临时文件中

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

　　 //让预览窗格显示特效预览

　　 第五步：
　　点击“Shift+Ctrl+S”保存，点击“Ctrl+F9”编译，OK，精彩软件，新鲜出炉。

　　 这样编出来的软件有三个优点：

　　 1、这是你的作品，版权所有，不得翻录。

　　 2、升级简单，以后如果有新的特效，只需复制下来，并存为文本文件，并拷贝至相应的特效类别目录下即可。

　　 3、短小精悍，上面提到的目前在网上大受欢迎的“新新网页特效”就是这么编出来的，看，这就是它的实现窗体。

    •上一页：你的Office程序坏了如何修复它?

    •下一页：Office 2003末日到来
Copyright© 2007  All Rights Reserved 版权所有: 金瑞数据恢复
地址: 呼和浩特市赛罕区兴安南路丰州学院（原青城大学）南巷往西100米金岁宿舍楼三单元203室  邮政编码 010010 E-mail: jrpc@jrpcdr.com