全球主机交流论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

CeraNetworks网络延迟测速工具IP归属甄别会员请立即修改密码
查看: 3650|回复: 2

自己制作网页特效软件

[复制链接]
发表于 2022-6-15 14:23:42 | 显示全部楼层 |阅读模式
现在每天成千上万的网民**于冲浪,很多朋友喜欢在网上搭个小窝,建个网站。建网站离不开设计网页,网页要精彩离不开特效。现在网上有一款最受大家欢迎的特效软件,名叫“新新网页特效”,该软件提供的特效最多最全,提供的特效最新最酷。其实这样一款优秀的软件,制作起来十分简单,如果你也想动手的话,跟我来,五步包你“成品出厂”。


  第一步:


  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、短小精悍,上面提到的目前在网上大受欢迎的“新新网页特效”就是这么编出来的,看,这就是它的实现窗体。
 楼主| 发表于 2022-6-15 14:27:13 | 显示全部楼层
网岛电信 提供优质服务器的IDC  联系TG @kaix_ly
发表于 2022-8-20 06:01:18 | 显示全部楼层
    不太简单啊
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|全球主机交流论坛

GMT+8, 2024-3-28 20:04 , Processed in 0.055744 second(s), 7 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表