2 helenxd Helenxd 于 2016.01.28 14:25 提问

用delphi 制作爆破窗体 5C
     书上有一段关于如何用delphi制作爆破特技窗体的代码,没有看懂,求大神帮忙解释,越详细越好,谢谢!
        代码:
            type

PtsType = array [0..15, 0..1] of Integer;
//这个数组是什么意思 ?
const
Pts: PtsType = ((0, 0), (800, 0), (800, 600),
(200, 600), (200, 220), (300, 280),
(265, 205), (350, 117), (205, 170),
(120, 90), (130, 200), (60, 350), (200, 220),
(200, 600), (0, 600), (0, 0));
//这组坐标值代表什么?

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
HRegion1: THandle;
begin
HRegion1 := CreatePolygonRgn (Pts,
sizeof (Pts) div 8, alternate);//各个参数代表什么?
PlaySound ('boom.wav', 0, snd_async);
SetWindowRgn (Handle, HRegion1, True);
end;

1个回答

devmiao
devmiao   Ds   Rxr 2016.01.29 07:09
Helenxd
Helenxd 谢谢哈~但是我要的不是登录窗口的制作,我要的是如何给窗口添加爆破特效,代码已有,只是不知道每一句的意思
2 年多之前 回复
Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!
其他相关推荐
半透明窗体
delphi 制作半透明窗体 用trackbar 控制窗体的alphablendwalue的值
Delphi实现无边框窗体的移动
将窗体的 BorderStyle 设置为 bsNone,窗体的标题栏就不会显示,此时,如果想移动窗体,方法如下:procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; PostMessa...
创建圆形窗体(源码)
using System;using System.Drawing;using System.Collections;using System.ComponentModel;using System.Windows.Forms;using System.Data; namespace Example007_用获取路径的方法得到圆形窗体...{    /**////     /// Form1 
用delphi制作无界面的activex控件
 首先,您要了解: COM的基本原理能被网页调用的非可视ActiveX控件必须是一种至少实现了IOleObject接口的TAutoObject组件利用Delphi向导生成的ActiveX控件必须继承自WinControl,所以您不能用Delphi向导生成非可视的ActiveX控件  以下例子,实现了一个非可视ActiveX,调用此控件的exeWB,相当于调用IE的打印,预览,页面设置
用Delphi生成DLL并封装窗体的示例源代码
用Delphi生成DLL并封装窗体的示例源代码! 值得下载看看!资源免费,大家分享!! 更多免费资源 http://ynsky.download.csdn.net/
delphi写的调用Dll中的窗体的范例和源码
Exe调用Dll 中Form 的例子 可以传入字符串,返回字符串,包含全部源代码
BPL窗体及类的封装方法
------------------BPL中的类封装PAS文件bplclass(类输出接口)-------------------- 方法二:在文件中定义BPL窗口pas中的类(接口) unit bplclass; interface uses bplUnit1;//引用BPL窗口PAS,即可输出其中的类 implementation end. 次方法有不利之处,也就是说主程序编程
Delphi用户登录窗口框架
摘自:http://www.cnblogs.com/qq528/articles/1487360.html 经常看到一些新手在CSDN上问登录窗口如何写,也看到N多人form1.show/form1.create/…中做form2.show之类。实在看不下去了。这种写法实在不是很好,于是还是把自己理解的登录框架来写写吧。希望能给新人一些引导(可不要误导了呀!)1.登录窗口在什么
使用Delphi 7实现Splash窗体
最近帮同学用D7做了一个很小的数据库管理系统,为了提示一些信息和美观而在程序开始运行时设置了一个Splash窗体。具体的实现方法如下:1、打开D7新建一个Application,将默认的窗体Form1的Name属性改为frmMain,该窗体为应用程序的主窗体。2、菜单New>Form,将新建的窗体的Name属性改为frmSplash,BorderStyle属性改为bsNone,展开BorderIc
建立Delphi窗体模板
最近在写一个信息管理系统,为了方便使用Delphi先建立一个模板窗体,以后就可以直接使用这个窗体来建立客户窗体了。窗体要实现以下功能:1.       这个窗体是作为MDI子窗体使用的,Delphi默认的MDI子窗体关闭是最小化,所以需要修改实现关闭后彻底释放窗体。2.       中文显示环境。3.       Enter键代替Tab键实现控件切换。4.       把窗体上的主