[分享]用delphi实现的由一颗五角星爆炸成多个五角星的特效,代码仅6行

无条件为你 2012-03-17 03:06:00



procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
WebBrowser1.Navigate('res://' + ParamStr(0) + '/myhtml');
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
WebBrowser1.OleObject.Document.body.Scroll :='no';
WebBrowser1.OleObject.Document.Body.style.border := 'none';
WebBrowser1.OleObject.Document.Body.Style.margin := '0px';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if GetKeyState(VK_ESCAPE)<0 then close;
end;




源码下载:http://download.csdn.net/download/mwy654321/4148813

没有积分的朋友可以到这里下载:http://www.mwymwy.com/res.rar



源码是实现一颗五角星缓缓升空后的爆炸效果,代码虽然只有6行(甚至可以更少),但因为使用了res资源,所以想看到实际效果,还是以工程的方式给大家比较好。

至于res里面是什么东西,有源码,你完全可以写段代码将res中的文件释放出来看个究竟。

今年决定放弃delphi工作,转做苹果手机开发,重新给自己充充电。



这个小程序没什么难度,只是用最少的代码实现了一个漂亮的特效,如果不借用网页,单纯的用delphi的图像处理功能实现这样的效果,代码量就不是6行这么简单了,这里将效果难度移到JavaScript来实现,delphi只是调用。这个代码虽然不多,但如果你是个新手,应该可以给你以下帮助:

第一,res协议的使用规范。
第二,一行代码实现webbrowser加载自己的资源。
第三,webbrowser去边框的方法
第四,透明窗体和透明webbrowser效果的实现。
第五,最简单定义ESC键退出程序的方法。此定义不会引起快捷键冲突。
第六,delphi原来可以这么简单的与脚本结合,网络上那么多漂亮的特效,不都可以拿过来用了?
...全文
519 26 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
26 条回复
切换为时间正序
请发表友善的回复…
发表回复
无条件为你 2012-03-29
  • 打赏
  • 举报
回复
[Quote=引用 19 楼 的回复:]
引用 5 楼 lhylhy 的回复:

楼主在哗众取宠,如果一行代码调用IE,难道能说1行写了个IE吗?

同感。
+1
[/Quote]

注意:IE不是你写的。
WinExec或ShellExecute或CreateProcess调用为大家所熟知。而res直接引用知道的人要少很多。

调用IE是你创建了新进程。我的webbrowser是自己程序的一部分。两码事。很多人在webbrowser中引用html时是先把资源文件释放出来再用,当然webbrowser可以自己直接写入网页源码,但网页源码量大的话,没有用res方便。
代码跳动 2012-03-22
  • 打赏
  • 举报
回复
觉得跟delphi似乎没什么关系。 设置下webbroeser调个网页显示了下。 要说技术东西也都是网页的事了。
Frank.WU 2012-03-22
  • 打赏
  • 举报
回复
[Quote=引用 5 楼 lhylhy 的回复:]

楼主在哗众取宠,如果一行代码调用IE,难道能说1行写了个IE吗?
[/Quote]
同感。
+1
程晨c 2012-03-22
  • 打赏
  • 举报
回复
苹果手机卡发是个热门,估计竞争很激烈,楼主不如继续搞delphi,所谓退一步海阔天空!
ccrun.com 2012-03-22
  • 打赏
  • 举报
回复
iamduo 2012-03-22
  • 打赏
  • 举报
回复
理念不错。
学习了。
早安您好 2012-03-21
  • 打赏
  • 举报
回复
山东蓝鸟贵薪 2012-03-21
  • 打赏
  • 举报
回复
向知识进军
无条件为你 2012-03-20
  • 打赏
  • 举报
回复
[Quote=引用 15 楼 kaikai_kk 的回复:]
噢,我的回复被删了,可恶的管理员!!!

再冒个泡,恭喜LZ脱离苦海
[/Quote]

嗯。确实,你没说什么呀,怎么被删?什么情况?
kaikai_kk 2012-03-19
  • 打赏
  • 举报
回复
噢,我的回复被删了,可恶的管理员!!!

再冒个泡,恭喜LZ脱离苦海
mdejtod 2012-03-19
  • 打赏
  • 举报
回复
越来越多的DELPHI人转行了啊。。。。
俺还奋斗在这战线上...
一剑飘雪 2012-03-19
  • 打赏
  • 举报
回复
手套兄转行了。。。。又少了个高手了
不得闲 2012-03-18
  • 打赏
  • 举报
回复
不过彻底的放弃确实挺可惜的,重新熟悉任何一个东西,都是一个过程,千万别看到少数人的光鲜亮丽,实际上做啥做到极致,都一样!就好像我有一个朋友之后放弃了Delphi,转向了Java,也搞Android,虽然工作好找,但是却也并不像大家都向往的少数人一样可以获取很高的回报,因为在那个新行业,他是个新人。他要走的路程还很长很长。如果你还做技术,实际上会发现之间的沟壑渠道很多,但是各个渠道之间却又有千丝万缕的联系,之间的区别非常不同却又非常相同。
山东蓝鸟贵薪 2012-03-17
  • 打赏
  • 举报
回复
任何程序都会有核心的地方,
如何是原创就支持一下......
SVIP_ 2012-03-17
  • 打赏
  • 举报
回复
多谢分享!

只要我觉得我不会的 我都觉得挺好
无条件为你 2012-03-17
  • 打赏
  • 举报
回复
什么样的人都有,对他无视即可。
我看见佛 2012-03-17
  • 打赏
  • 举报
回复
[Quote=引用 5 楼 lhylhy 的回复:]
楼主在哗众取宠,如果一行代码调用IE,难道能说1行写了个IE吗?
[/Quote]高手来拍砖了,呵呵
lhy 2012-03-17
  • 打赏
  • 举报
回复
楼主在哗众取宠,如果一行代码调用IE,难道能说1行写了个IE吗?
oushengfen 2012-03-17
  • 打赏
  • 举报
回复
楼主非常不错,牛人
山东蓝鸟贵薪 2012-03-17
  • 打赏
  • 举报
回复
呵呵,谢谢分享,收下先
加载更多回复(2)

1,185

社区成员

发帖
与我相关
我的任务
社区描述
Delphi GAME,图形处理/多媒体
社区管理员
  • GAME,图形处理/多媒体社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧