不规则形状

可以,您必须使用 setwindowrgn function to set the new window region to draw.

尝试此代码

过程tform1.formCreate(sender:tobject);
var
区域:HGN;
开始
区域:=createRoundRectrgn(clientRect.left,clientRect.top,clientRect.right,clientRect.bottom,15,15);
setwindowrgn(句柄,区域,真);
结束;
< /代码> 



查看这些链接了解更多信息


Creating shaped forms(using a bitmap image)>

是否可以在Windows中创建形状不是标准矩形的表单?(使用poligon)


函数设置要绘制的新窗口区域。


试试这个代码

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)

您可以使用tforms TransparentColorValue 财产。结合borderStyle=bsnone,它将为您提供这样的形状。