delphi窗体透明但上面的控件不透明怎么实现

最新推荐文章于 2019-10-02 07:24:44 发布

dkopg24406

最新推荐文章于 2019-10-02 07:24:44 发布

阅读量786

点赞数

原文链接：http://www.cnblogs.com/blogpro/p/11446625.html

版权

本文介绍如何使用Delphi创建无边框且带有背景图像的透明窗体，通过调整窗体样式和设置层叠属性实现。关键代码展示了如何设定特定颜色作为透明色，使得窗体中与该颜色相同的部分呈现透明效果，而控件保持正常显示。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

我不知道LAZARUS是什么玩意。
纯用DELPHI的话。
procedure TForm1.FormCreate(Sender: TObject);
var
mStyle, mExStyle: Longint;
FAlphaColor: TColor;

begin
FAlphaColor:= clRed;

//设置窗体为无标题
mStyle:= GetWindowLong(Handle, GWL_STYLE);
SetWindowLong(Handle, GWL_STYLE, mStyle and not WS_CAPTION);
BorderStyle:= bsNone;
//加载背景图像，设置窗体分层
mExStyle:= GetWindowLong(Handle, GWL_EXSTYLE);
SetWindowLong(Handle, GWL_STYLE, mExStyle or WS_EX_LAYERED);
SetLayeredWindowAttributes(Handle, FAlphaColor, 255, LWA_COLORKEY);
end;
FAlphaColor这里可以设成任意颜色，一般粉红。

就是说，窗体上只要与它一样的色都透明了。
控件还是照一般那样往上放就行。

转载于:https://www.cnblogs.com/blogpro/p/11446625.html