delphi 求 做不规则窗体的方法!!100分(100分)

  • 主题发起人 主题发起人 寒芳轻
  • 开始时间 开始时间
寒

寒芳轻

Unregistered / Unconfirmed
GUEST, unregistred user!
求高手指教不规则窗体的制作方法!!就是把窗体的形状做成图片的形状!!!
高手快来啊,我的E-Mail: chanxinguo@hotmail.com
 
剪裁窗体
 
Raize控件包中有一个 rzFormShape 控件，放窗体上，加载一个图片就可以了。白色的地方被剪裁。
 
皮肤控件就可以,VCLSKIN,可以实现类似瑞星那样的窗体
 
个位老大
to 三:怎么裁剪,你是说用api吗?但是我的图片形状很怪异的!!
to 长河:你说的那个控件包,那里有下载,你有吗?可以给我一份吗!?
to 鹏:可以给我一分你说的那个控件吗!!
 
把窗体设成透明的，背景色于图片的透明色保持一致就可以了
非常简便的方法
 
盒子上 http://www.2ccc.com/article.asp?articleid=3081有下。
 
学习下
 
留邮件。给你个DEMO
 
最简单的实现方法：
form设计时 BorderStyle = bsNone
在form上放置你希望的图片，然后在FormCreate里加代码如下：
procedure TFlashForm.FormCreate(Sender: TObject);
begin
Brush.Style := bsClear;
BorderStyle := bsNone
end;
 
哪里有皮肤控件下载啊
我也想要
推荐几个好的哦
 
学那东西倒底有什么用，郁闷。。。
 
to:网中戏 我的邮箱是chanxinguo@hotmail.com 谢谢
to socid 你的方法不行,我的图片是不规则的,不是矩形的
to 长河 你的方法我试了是可以的,但我还要做的是,要拖动窗体改变窗体的大小,
这个我尝试未果
 
var
R:HRgn;
begin 使窗体显示成不规则窗口
R:=CreateEllipticRgn(2,2,100,100); 做一个椭圆,
setwindowRgn(handle,R,True);显示椭圆
end;
 
做那么丑的窗体干吗，只要你功能完善，操作简单就是最好的
 
拖动：在图片的任何位置均可按下鼠标拖动。
调整大小：我也不会。
 
demo 已经发送到chanxinguo@hotmail.com[:D]
你可以自己画位图编译成各种异形窗口
 
to 网中戏：你给我的rar，里面的exe运行是没有问题的，可是程序运行后得到的窗体，背景还在啊，你的原理是不是取反色啊？请问在哪里设置的啊！！
 
透明色取5*5的点颜色。即左上角留10*10的地方为背景色
 
ckou.jpg
 
您必须登录或注册才可回复。

Similar threads

S
[杂谈]系统对话框（如浏览目录）被隐藏到主窗体后面造成程序无法操作的临时处理方式
回复
0
查看
928
swish
S
D
[原]2017-02-25：发布OrangeUI 1.66
回复
0
查看
764
DelphiTeacher的专栏
D
D
[原]2017-02-25：发布OrangeUI 1.66
回复
0
查看
738
DelphiTeacher的专栏
D
D
[原]2017-02-25：发布OrangeUI 1.66
回复
0
查看
691
DelphiTeacher的专栏
D
D
[原]Delphi调用讯飞语音SDK
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部