在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
来自:http://blog.csdn.net/shuaihj/article/details/8610343
关于窗体透明的做法
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;
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论