形状不规则的形状

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;

检查这些链接以获取更多信息

• 创建形状表单(使用位图图像)
• 是否可以在Windows中创建除标准矩形之外的形状的表单？(使用poligon)

Answer 2

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