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

我不知道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