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

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

Delphi(Pascal) code


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

------解决方案--------------------
路过来看看。放弃delphi蛮可惜呀

------解决方案--------------------
呵呵，谢谢分享，收下先

------解决方案--------------------
楼主非常不错，牛人
------解决方案--------------------
楼主在哗众取宠，如果一行代码调用IE，难道能说1行写了个IE吗？
------解决方案--------------------

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

------解决方案--------------------
多谢分享!

只要我觉得我不会的我都觉得挺好
------解决方案--------------------
任何程序都会有核心的地方，
如何是原创就支持一下......
------解决方案--------------------
不过彻底的放弃确实挺可惜的，重新熟悉任何一个东西，都是一个过程，千万别看到少数人的光鲜亮丽，实际上做啥做到极致，都一样！就好像我有一个朋友之后放弃了Delphi，转向了Java，也搞Android，虽然工作好找，但是却也并不像大家都向往的少数人一样可以获取很高的回报，因为在那个新行业，他是个新人。他要走的路程还很长很长。如果你还做技术，实际上会发现之间的沟壑渠道很多，但是各个渠道之间却又有千丝万缕的联系，之间的区别非常不同却又非常相同。
------解决方案--------------------
手套兄转行了。。。。又少了个高手了
------解决方案--------------------
越来越多的DELPHI人转行了啊。。。。
俺还奋斗在这战线上...
------解决方案--------------------
噢，我的回复被删了，可恶的管理员！！！

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

------解决方案--------------------
向知识进军

------解决方案--------------------

------解决方案--------------------
理念不错。
学习了。
------解决方案--------------------
苹果手机卡发是个热门，估计竞争很激烈，楼主不如继续搞delphi，所谓退一步海阔天空！

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

相关推荐