一个有关界面形状的问题*-------------------*(100分)

  • 主题发起人 主题发起人 base1
  • 开始时间 开始时间
B

base1

Unregistered / Unconfirmed
GUEST, unregistred user!
我用
procedure TForm1.FormCreate(Sender: TObject);
var
hRegion: THandle;
begin
hRegion := CreateEllipticRgn(0, 0, Width, Height);
SetWindowRgn(Handle, hRegion, True);
end;
获得一个椭圆形的界面,想在上面添加一个同样形状的panel,不知如何实现?

还有,如何制作不规则形状的按钮?

望大虾们指点:P 3Q!
 
用1stClass中的fcShapeBtn
 
能写两句具体一点的代码吗?
 
关于不规则形状的按钮，在程序员大本营有类似例子，不妨查一下。
 
>能写两句具体一点的代码吗?
构件里写的挺清楚的，您先看看，好么？
 
将1stclass下载了再研究他的源代码
下载地址：
http://www.net-wing.net/kangwei/newvcl/1stclass/1stclass2000ProVcl5.exe
有事请联系：
loopy@netease.com

 
你把PANEL先放在FORM上不是挺好的吗！
 
procedure TForm1.FormCreate(Sender: TObject);
var hRegion: THandle;
begin
hRegion := CreateEllipticRgn(0, 0, Width, Height);
SetWindowRgn(Handle, hRegion, True);
end;

把这里的handle换成panel1.handle就可以把panel的形状变了
 
ExtraPack里面这样的源代码太多了。
 
接受答案了.
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
H
设置不规则窗体形状(100分)
回复
4
查看
143
happy3001
H
马
两个图形重合的问题(200分)
回复
17
查看
205
dongxuzhao
D
B
如何实现一个椭圆形窗体(50分)
回复
3
查看
130
naughtboy
N
张
图形的打印预览问题 (100分)
回复
2
查看
159
张了了
张
后退
顶部