1.在Delphi中,设置窗体的AlphaBlend := true;AlphaBlendValue := 0-255; AlphaBlendValue越小窗体的透明度就越高。这种方法将会使窗体和窗体中控件都变成透明。
2.在Delphi中,设置TransparentColor := True与TransparentColorValue := TForm.Color, 则窗体变成透明,控件不透明。
3.使用API控制指定区域透明,如下,通过不绘制窗体四角的方法,来使四角变得圆滑透明,可在窗体Resize时调用。
procedure TFormPadMain.SetFormTransparent;
var
Rgn: HRGN;
begin
Rgn := CreateRoundRectRgn(0, 0, Width, Height, 11, 11);
SetWindowRgn(Handle, Rgn, True);
end;
var
Rgn: HRGN;
begin
Rgn := CreateRoundRectRgn(0, 0, Width, Height, 11, 11);
SetWindowRgn(Handle, Rgn, True);
end;
![](https://images2017.cnblogs.com/blog/307031/201708/307031-20170827145100371-1535473250.png)
![](https://images2017.cnblogs.com/blog/307031/201708/307031-20170827165744636-1696827418.png)
本文来自博客园,作者:del88,转载请注明原文链接:https://www.cnblogs.com/del88/p/4298025.html