打印

DELPHI 实例--局部透明窗体

gainover

我就是我！

Beebee 开国元勋

发短消息
加为好友
当前离线

1^# 大中小发表于 2007-1-6 22:55 只看该作者

DELPHI 实例--局部透明窗体

对象如下

Form  name:Form1 Caption:局部透明窗体
Button name:Button1  Caption:设置窗体
Button name:Button2  Caption:关闭

代码如下

复制内容到剪贴板

代码:

unit Unit3;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}





type

 PtsType=array[0..10,0..1]of Integer;



const

 Pts:PtsType =((0,0),(300,0),(300,100),(100,200),(400,200),(300,150),(300,0),(600,0),(600,600),(0,600),(0,0));





procedure TForm1.Button1Click(Sender: TObject);

var

HRegion1:THandle;

begin

 HRegion1:=createPolygonRgn(Pts,10,alternate);

 setWindowRgn(Handle,HRegion1,True);



end;



procedure TForm1.Button2Click(Sender: TObject);

begin

 Application.Terminate;

end;



end.

效果如下:

附件: 您所在的用户组无法下载或查看附件

以前没有人|没在没有人|

TOP

youyiyouling

新手上路

最佳新人奖

发短消息
加为好友
当前离线

2^# 大中小发表于 2007-1-6 23:04 只看该作者

呵呵支持下 ...

TOP

xiaofan3650

初级会员

发短消息
加为好友
当前离线

3^# 大中小发表于 2008-2-9 16:23 只看该作者

下面的这个家伙很欠踩

http://blog.sina.com.cn/xiaofan3650

TOP

ghij695

潮流风乞丐

发短消息
加为好友
当前离线

4^# 大中小发表于 2008-4-27 01:01 只看该作者

奇迹私服.完美世界私服

服务器宗旨:永不出售装备,怪物刷新均匀,绝不乱刷怪,本服务器封任何外挂！真正体验当初热血传奇诞生时代！我们的目的是:一个服务器让玩家至少能玩半年以上也不会觉得无聊的版本！您还在等什么？？？

本服务器分析了好多现在的版本:1.怪物乱刷一个地图内BOSS 十多个！装备乱爆！这样玩不久！！不出5天服务器没人！2.外挂满天飞,外挂好的带一套祖玛把穿战神装备的P的满地跑！简直不合理！装备已经是没什么用处！这样的F玩不久！不出5天就合区！合完区没人玩！3. 到处都能打到BOSS 简直没挑战性！而且玩家都分散了！没人PK！！！一个服务器没人PK象征这个服务器即将倒闭！
本服务器结合以上几点！打造出前所未有的新版本,具体介绍如下！！

大特点:本服务器删除超级传送,几乎都用跑(我不认识路怎么办？？)优化了地图连接,只要是有入口的地方一直跑下去就能到打BOSS那

1.英雄技能书那里爆：僵尸洞和尸王殿爆英雄技能书！删除了一定的连接只要有入口的地方进去就能到尸王殿！

2.本服务器为真英雄版本,删除其他私服有的乱七八糟地图,只留（祖玛猪洞石墓封魔谷牛魔洞僵尸洞等等只留盛大有的地图）
这样的设置主要是让大家觉得本服务器热闹！都等BOSS刷新,而不是像其他私服一个地图内BOSS多的乱七八糟！本服务器的设置和盛大一样！如:祖玛刷祖玛教主死亡棺材刷触龙神沃玛刷沃玛教主之类！！所有BOSS为2个小时刷一次！！这样的设置大家就不会觉得无聊！这样玩家到了2个小时都会到指定的地方打BOSS 这样设置让玩家觉得更有目标性！不像无头苍蝇一样,玩一个F进去不知道做什么！

（注意:所有BOSS都会爆好装备！不分BOSS大小！只要是BOSS都会爆好装备！如战神开天类都会爆！不要瞧不起沃玛教主触龙神之类哦）

3.2个小时刷一次BOSS 2个小时后可以做一些任务！边练级又可以边做任务！！就不会觉得无聊了！另设置了1个练级地图里面2个BOSS：此地图为极限之地里面10分钟刷新200个黑野猪！！2个小时刷一个暗之魔龙教主！此地图杀人不犯法！所以喜欢PK的玩家可以到这个地图来练级！！！

4.打装备指南:,↓→完美世界私服,奇迹私服发布,私服外挂下载影子道3层:祖玛教主藏宝阁:6大暗之地藏魔王(3个小时刷一次) 祖玛教主之家:祖玛教主死亡棺材:触龙神尸魔洞：黄泉教主牛魔洞：牛魔王赤月巢穴：赤月恶魔沃玛三层：沃玛教主 6大暗之刷衣服地点（不认识路可以在游戏里看传送员指南）
王者禁地：6大暗之（幻境6进去就是）封魔谷最后一层：虹魔教主幻境3层：沃玛教主幻境4：触龙神幻境5：黄泉教主幻境8：虹魔教主幻境9层：双头金刚双头血魔幻境10层：赤月恶魔暗之触龙神暗之牛魔王（主要这些打装备地点都为2小时刷新一次,这样的设置是让玩家等怪刷，而不是怪等玩家来打！这样的设置更让网通奇迹私服觉得有挑战性！不觉得无聊！觉得装备来之不易）

5.练级地图:沃玛3层封魔谷（法师烧猪的好地方）石墓幻境尸魔洞极限之地（此地图杀人不犯法）

5:GM如何赚钱:设置了8大BOSS：进去一次10元宝，玩家一天只能进一次！本服务器也不卖会员！主要设置是让玩家觉得有以前的新开奇迹私服的感觉！

6：我是人民币玩家不会打装备怎么办？ ,↓→变态奇迹私服您可以在游戏里喊话！找打装备狂人民币购买！我们做担保！收取%10的手续费！！

7。具体不做都的介绍进游戏便知！！我们的版本设置如何！到底留不留人！到底耐不耐玩！！

TOP

破石机器

禁止访问

发短消息
加为好友
当前离线

5^# 大中小发表于 2008-4-29 23:09 只看该作者

振动筛直线振动筛 YK圆振动筛 ZZ直线振动筛振动筛价格

提示: 作者被禁止或删除内容自动屏蔽

TOP

自由人188

禁止访问

发短消息
加为好友
当前离线

6^# 大中小发表于 2008-5-15 10:28 只看该作者

D

提示: 作者被禁止或删除内容自动屏蔽

TOP

机械

潮流风乞丐

发短消息
加为好友
当前离线

7^# 大中小发表于 2008-8-23 18:31 只看该作者

强制式搅拌机,搅拌机混凝土搅拌机平口搅拌机

■■国营河南山宝矿山机械厂，以生产矿山设备为主，是国内最早生产矿山机械的厂家之一。本公司拥有雄厚的技术实力，精良的加工设备，先进的生产工艺，完善的质量保证体系。本着‘以诚立信，以质为本，不求最好，但求更好’的企业精神。

■■我公司生产的高效细碎机（制砂机），环锤式破碎机，复合式破碎机，振动筛，洗砂机，鄂式破碎机，免烧砖机，烘干机，破石机，木粉机，球磨机，现推出粮油机械，颚式破碎机（颚破机），锤式破碎机（锤破），反击式破碎机（反击破），辊式破碎机（双辊破），对辊破碎机，冲击式破碎机（冲击破），颚破机，鄂破机，细破机，破石机，碎石机，克石机，给料破碎机，原煤破碎机，路面破碎机，复摆细碎颚式破碎机，PCL破碎机，自击式破碎机，立式复合破碎机，卧式复合破碎机，圆锥破碎机，碎石机及破碎生产线上使用的振动给料机（喂料机），摆式给料机，复摆式给料机，输送机，胶带输送机，输送设备，直线振动筛（直线筛），圆振动筛（圆筛），筛分设备。筛选设备，皮带输送机以及各种矿山配套设备。

■■客户的需要，是我们的追求，您的关爱是我们的动力，把您的手和我们的手握在一起，共创未来！质量是企业的生命，一切让客户满意是我们永恒的追求，是我们一贯坚持的质量方针；我们注重产品质量的每一个环节，设备的出厂合格率始终是100%，维修率是同行业中最低的。

■■我们并不是最优秀的企业，但是，我们优质的产品和完善的售后服务，打造坚实的市场基础和良好的用户口碑，合理与客户共创双赢！

■■联系电话：0371-67846390 13939015767 联系QQ：785804822

制砂生产线，制砂机,洗砂机破碎机河南山宝矿山机械厂

TOP

955sdf07

潮流风新人

发短消息
加为好友
当前离线

8^# 大中小发表于 2008-11-17 13:22 只看该作者

范冰冰被任命西影副团长

[url=http://1239555.cn]http://1239555.cn[/url]

TOP

hijk369

潮流风新人

发短消息
加为好友
当前离线

9^# 大中小发表于 2008-11-19 19:28 只看该作者

深圳科技园发廊装修公司，26306460，深圳富祥居装修公司

深圳科技园发廊装修公司(26306460)深圳装修公司,富祥居装饰,深圳装饰公司,深圳展厅装修公司,深圳写字楼装修公司,深圳办公室装修公司,深圳办公楼装修公司,深圳厂房装修公司,深圳店铺装修公司,深圳别墅装修公司,深圳居家装修公司,深圳富祥居装饰公司.
深圳富祥居装饰公司主营:深圳居家装修.写字楼装修.办公室装修.办公楼装修.工业厂房装修.专卖店装修.店铺装修.别墅装修.发廊装修.展厅装修.酒楼装修.餐厅装修,食堂装修等设计及施工,大小均做.

深圳科技园发廊装修公司电话:0755-26306460
深圳装修专线：0755-82305147
深圳装修网址：http://www.szfxzs.com http://www.fxjzs.com

深圳装修公司，深圳装饰公司，深圳写字楼装修公司，深圳厂房装修公司

TOP

DELPHI 实例--局部透明窗体

DELPHI 实例--局部透明窗体

代码:

奇迹私服.完美世界私服

振动筛 直线振动筛 YK圆振动筛 ZZ直线振动筛 振动筛价格

D

强制式搅拌机,搅拌机 混凝土搅拌机 平口搅拌机

范冰冰被任命西影副团长

深圳科技园发廊装修公司，26306460，深圳富祥居装修公司

振动筛直线振动筛 YK圆振动筛 ZZ直线振动筛振动筛价格

强制式搅拌机,搅拌机混凝土搅拌机平口搅拌机