现在每天成千上万
网民激情于冲浪
很多朋友喜欢在网上搭个小窝建个网站WebSite
建网站WebSite离不开设计网页网页要精彩离不开特效现在网上有
款最受大家欢迎特效软件Software名叫“新新网页特效”该软件Software提供特效最多最全提供特效最新最酷其实这样款优秀软件Software制作起来十分简单如果你也想动手话跟我来 5步包你“成品出厂”第
步:1、安装
套Delphi 6.0最好是中文版2、搜集各种刊物或者是下载各种特效代码
都存为TXT文件3、将这些特效文件分门别类存进相应
目录中如“链接类特效”、“时间类特效”、“文字类特效”等等然后将这些目录悉数放进个Data目录下第 2步:
运行Delphi 6.0
新建个工程打开个窗体放置下列组件:Combobox点击“Iitems”属性设置特效类别“Filelistbox”用于显示特效名称“Memo”用于显示特效代码“Webbrowser”用于特效预览最后放置两个Button按钮并将其“Caption”属性分别设置为“复制代码”和“特效预览”调整好各组件在窗体中位置第 3步:
实现用“Filelistbox”显示特效名称
可以设置“Combobox”“Onchange”事件让类别改变时显示相应类别特效文件名称:filelistbox1.directory:=(ExtractFilePath(Application.Exename)+'\data\'+combobox1.Text+'\');
在点击特效名称时
在“Memo”窗口上显示该特效代码可以设置“Filelistbox”“Onclick”事件:memo1.Lines.LoadFromFile (filelistbox1.FileName);
第 4步:
每
款特效软件Software都离不开“复制代码”和“特效预览”这两项最基本功能我们可以这样实现双击“复制代码”按钮添加Onclick事件代码://当按下这个按钮时
memo1.SelectAll;
//全选上特效代码
memo1.copyToClipboard;
//将选上
特效代码复制到剪贴板同样双击“特效预览”按钮
添加Onclick事件代码:Memo1.Lines.SaveToFile('c:\temp.htm');
//将Memo1中
显示代码内容保存至个临时文件中webbrowser1.Navigate('c:\temp.htm');
//让预览窗格显示特效预览
第 5步:
点击“Sh
t+Ctrl+S”保存点击“Ctrl+F9”编译OK精彩软件Software新鲜出炉这样编出来
软件Software有 3个优点:1、这是你
作品版权所有不得翻录2、升级简单
以后如果有新特效只需复制下来并存为文本文件并拷贝至相应特效类别目录下即可3、短小精悍
上面提到目前在网上大受欢迎“新新网页特效”就是这么编出来看这就是它实现窗体
最新评论