如何创建不规则形窗体？

盘谷 2000-01-11 04:16:00

...全文

176 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

盘谷 2000-01-11

打赏
举报

谢谢你们，我已经成功了！

Venne 2000-01-11

打赏
举报

我的站点上有一个叫做COOLFORM的控件，只要你做出不规则形状的图片，然后过滤掉边缘的颜色就可以了。
它的实现方法你可以研究一下它的源码，主要精神是多边矩形的剪切。
http://best.163.com/~venne/download/component/coolform.zip
size:187kb
WelCome to Venne's Delphi Site: delphiweb.126.com :)

Firing_Sky 2000-01-11

打赏
举报

这里有创建椭圆窗体的一段代码
procedure TFrmMain.FormCreate(Sender: TObject);
var
rgn:HRGN;
begin
rgn:=CreateEllipticRgn(0,0,150,150);
SetWindowRgn(self.Handle, rgn, true);
end;
更一般的用CreatePolygonRgn代替CreateEllipticRgn就可以做出任意形状的窗体了