文章/答案/技术大牛

发布

社区首页 >问答首页 >不规则形状的表单

问不规则形状的表单
EN

Stack Overflow用户

提问于 2010-08-26 13:46:40

回答 2查看 2.6K关注 0票数 1

许多现代应用程序都有形状不规则的表单。在Delphi中做这件事的最好方法是什么？是否可以在不使用任何第三方VCLs的情况下完成此操作？

delphi

回答 2

Stack Overflow用户

回答已采纳

发布于 2010-08-26 13:59:09

可以，您必须使用SetWindowRgn函数来设置要绘制的新窗口区域。

试试这段代码

procedure TForm1.FormCreate(Sender: TObject);
var
  region:HRGN;
begin
  region := CreateRoundRectRgn(ClientRect.left, ClientRect.top, ClientRect.right, ClientRect.bottom, 15, 15);
  SetWindowRgn(Handle, region, true);
end;

有关更多信息，请查看这些链接

Creating Shaped Forms (使用位图image)
Is it possible to create forms with shapes other than the standard rectangular shape in Windows? (使用多边形)

票数 9

Stack Overflow用户

发布于 2010-08-26 18:00:55

您可以使用TForms的TransparentColorValue属性。与BorderStyle=bsNone相结合，它将为您提供这样的形状。

票数 8

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/3572342

复制

相似问题

问不规则形状的表单
EN

回答 2

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问不规则形状的表单EN

回答 2

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问不规则形状的表单
EN