关于窗体透明的做法

关于窗体透明的做法

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;