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

[无条件为你]

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原来可以这么简单的与脚本结合，网络上那么多漂亮的特效，不都可以拿过来用了？

[山东蓝鸟贵薪]

呵呵，谢谢分享，收下先

[oushengfen]

楼主非常不错，牛人

[lhy]

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

[我看见佛]

[Quote=引用 5 楼 lhylhy 的回复:]
楼主在哗众取宠，如果一行代码调用IE，难道能说1行写了个IE吗？
[/Quote]高手来拍砖了，呵呵

[无条件为你]

什么样的人都有，对他无视即可。

[SVIP_]

多谢分享!

只要我觉得我不会的 我都觉得挺好

[山东蓝鸟贵薪]

任何程序都会有核心的地方，
如何是原创就支持一下......

[不得闲]

不过彻底的放弃确实挺可惜的，重新熟悉任何一个东西，都是一个过程，千万别看到少数人的光鲜亮丽，实际上做啥做到极致，都一样！就好像我有一个朋友之后放弃了Delphi，转向了Java，也搞Android，虽然工作好找，但是却也并不像大家都向往的少数人一样可以获取很高的回报，因为在那个新行业，他是个新人。他要走的路程还很长很长。如果你还做技术，实际上会发现之间的沟壑渠道很多，但是各个渠道之间却又有千丝万缕的联系，之间的区别非常不同却又非常相同。

[一剑飘雪]

手套兄转行了。。。。又少了个高手了

[mdejtod]

越来越多的DELPHI人转行了啊。。。。
俺还奋斗在这战线上...

[kaikai_kk]

噢，我的回复被删了，可恶的管理员！！！

再冒个泡,恭喜LZ脱离苦海

[无条件为你]

[Quote=引用 15 楼 kaikai_kk 的回复:]
噢，我的回复被删了，可恶的管理员！！！

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

嗯。确实，你没说什么呀，怎么被删？什么情况？

[山东蓝鸟贵薪]

向知识进军

[早安您好]

[iamduo]

理念不错。
学习了。

[ccrun.com]

[程晨c]

苹果手机卡发是个热门，估计竞争很激烈，楼主不如继续搞delphi，所谓退一步海阔天空！

[Frank.WU]

[Quote=引用 5 楼 lhylhy 的回复:]

楼主在哗众取宠，如果一行代码调用IE，难道能说1行写了个IE吗？
[/Quote]
同感。
+1

[代码跳动]

觉得跟delphi似乎没什么关系。 设置下webbroeser调个网页显示了下。 要说技术东西也都是网页的事了。

[无条件为你]

[Quote=引用 19 楼 的回复:]
引用 5 楼 lhylhy 的回复:

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

同感。
+1
[/Quote]

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

调用IE是你创建了新进程。我的webbrowser是自己程序的一部分。两码事。很多人在webbrowser中引用html时是先把资源文件释放出来再用，当然webbrowser可以自己直接写入网页源码，但网页源码量大的话，没有用res方便。