想创建一个工具栏toobar类，让背景色透明，能实现吗，谢谢！

谢谢吹版，代码补充，就是类似下面的这段代码创建一个toolbar 工具栏：

Public MYTOOL
MYTOOL = Newobject('toolbar')
MYTOOL.Newobject('ct1','container')
MYTOOL.Newobject('bt1','commandbutton')
MYTOOL.ct1.Width = 200
MYTOOL.ct1.Height = 200
MYTOOL.bt1.Height = 200
MYTOOL.ct1.Visible = .T.
MYTOOL.bt1.Visible = .T.
MYTOOL.BackColor = Rgb(0,128,128)  && 故意调整颜色，为了调试 API 是否可以实现 背景色透明
MYTOOL.Caption = ''
MYTOOL.Show()

测试 文件

[此贴子已经被作者于2023-3-14 17:28编辑过]

要看具体情况
给个简单示例代码测试一下

代码已经在1楼补充！

下面的代码是网上找的，没成功

Declare Integer SetLayeredWindowAttributes In user32.Dll integer,integer,integer,integer
Declare Integer SetWindowLongA  In user32.Dll Long hwnd, Long nIndex, Long dwNewLong
declare SetWindowLong in user32.Dll integer,integer,integer
SetWindowLongA(this.HWnd,-20,786688)
SetWindowLong(this.HWnd,-20,0x80000)
SetLayeredWindowAttributes(this.HWnd,0,0,2)
SetLayeredWindowAttributes(this.HWnd,rgb(255,0,0),10,1)

[此贴子已经被作者于2023-3-14 16:57编辑过]

this.HWnd 是工具栏窗口句柄
试试增加 GetWindowLong
DECLARE long GetWindowLong IN user32 long,long

在Activate事件
SetWindowLong(this.HWnd, -20, BITOR(GetWindowLong(this.HWnd, -20), 0x80000))

然后需要时再设置透明
LOCAL n透明度
n透明度 = 128    && 0--255
SetLayeredWindowAttributes(this.HWnd, this.BackColor, 0, 1)    && 透明背景颜色值有效，透明度无效。
或
SetLayeredWindowAttributes(this.HWnd, 0, n透明度, 2)    && 透明背景颜色值无效，透明度有效。
或
SetLayeredWindowAttributes(this.HWnd, this.BackColor, n透明度, 3)    && 透明背景颜色值有效，透明度有效。

吹版，还是不行，一楼 示例 已上传。

试了一下，这toolbar是个子窗口，没有效果。
对顶层窗口就有效

好的，那就算了，谢谢吹版。