形状不规则的形状

Question

许多现代应用具有不规则形状。在Delphi中执行此操作的最佳方法是什么？是否可以在不使用任何第三方VCL的情况下执行此操作？

Answer 1

是的，您必须使用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（使用位图图片）
• Is it possible to create forms with shapes other than the standard rectangular shape in Windows?（使用poligon）

Answer 2

您可以使用TForms的TransparentColorValue属性。结合BorderStyle = bsNone，它会给你这样的形状。