怎样做一个环型窗体？

[Benjamin]

怎样做一个环型窗体，一个圆环？多谢！

[kxy]

请查询"不规则窗体"
此问题在本论坛讨论过:)

[Firing_Sky]

使用Api函数CreatePolygonRgn

[Venne]

在查询问题里找找有关不规则窗体等的关键字。
或者直接到http://delphiweb.126.com 下DOWN一个CoolForm的控件，讲得很明白。

[Benjamin]

firing_sky,能不能说详细点？我不想用CoolForm。

[Venne]

那，COOLFORM是含源码的，其实看一下也会懂得：即然你那么急，我给你代码：
这段代码可以很好地实现一个园环窗体，但没什么用，在窗体的MOUSEDOWN里有一段处理使得用户可以在窗体上拖动，其中＄F012是一个幻数。最后使用ALT+F4退出窗口。
这段程序没有任何出错保护，你可以根据自己需要扩展。

var
Form1: TForm1;
FormRgn:HRGN;
rgn1,rgn2:HRGN;
implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
Rgn1:=CreateEllipticRgn(0,0,300,300);
Rgn2:=CreateEllipticRgn(50,50,250,250);
FormRgn:=CreateEllipticRgn(0,0,300,200);
//园环是在以上三个RGN形成后合并而成
combineRgn(formRgn,Rgn1,Rgn2,RGN_DIFF);
//把这个RGN赋给窗口
SetWindowRgn(handle,FormRgn,true);
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
//允许拖动
If button = mbleft then
begin
releasecapture;
perform (WM_syscommand, $F012, 0);
end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
//释放创建的RGN
deleteobject(rgn1);
deleteobject(rgn2);
deleteobject(formrgn);
end;

end.

[Firing_Sky]

CreatePolygonRgn的第二个参数是一个TPoint数组，你用一个点数组勾出任意形状窗体的边界，（椭圆或者环状窗体实际上是用多边形逼近的）

要不然的话用CreateEllipticRgn 来创建一个椭圆窗体，再用透明刷子把你要去掉的中心的园进行处理也能达到类似的效果

[Benjamin]

各位大虾，帮帮忙！

[Benjamin]

Okay! 多谢两位前辈,Venne和Firing_Sky!(我17岁，所以不出意外你们都应比我大，
所以是前辈啦！）

[Benjamin]

哪的话啊，Firing_Sky。比起你们我还差的远呢！(more than 108000 里 :-))

[Venne]

小我12岁。
:)

[Firing_Sky]

哈哈，Venne你大我7岁耶*^_^*，
Benjamin，你真行，我17岁时还是个电脑盲 *^_^*