怎样让Panel变透明(显示下面的控件的背景)？

[mozart2000]

我的Form的背景是一幅图片，
由于一些原因，我必须用Panel
现在我想让Panel变透明，让下面的Form能构显示出来
请问该怎么办？

[devie]

SemiPercent属性设置透明度，

[tsk]

我帮你看看！

[hlmsoft]

//取得Panel1的原有类型数据
LONG ExStyle = ::GetWindowLong(Panel1->Handle, GWL_EXSTYLE);
//将Panel1设为透明状态
::SetWindowLong(Panel1->Handle, GWL_EXSTYLE,
ExStyle | WS_EX_TRANSPARENT);
在窗口扩展样式中有很多好东西

[shudingbo]

>> hlmsoft(小民)
好象只有2000下才行，

[hlmsoft]

嘿，我是在win2000下用的，不过在
win98下应该可以，明天我试试

[bbonline]

用FlatStyle2K控件可以实现

[shally5]

学习！

[penu]

取得panel的句柄（Handle），有个API函数可以设置指定窗口的透明度：

SetWindowLong(Handle,GWL_EXSTYLE,GetWindowLong(Handle,GWL_EXSTYLE)|WS_EX_LAYERED);
SetLayeredWindowAttributes(Handle,0,alpha,LWA_ALPHA);

alpha为透明度,取值范围：0-255；0:完全透明、255：完全不透明。BYTE类型。

[fractalcloud]

按照小民大虾的代码，在win2000下我试验了一下：分别放置于Form1的OnCreate或OnClick，Panel1没变化。
再加上懒猫大虾的SetLayeredWindowAttributes(Panel1->Handle,0,10,LWA_ALPHA)，这个函数没有成功，即返回值为0。

Why??

[penu]

先要用SetWindowLong这个函数。

[jishiping]

SetLayeredWindowAttributes 只对Win 2000/XP有效，下面给你一个在任何
Windows下都有效的方法：

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
HRGN hRgn = NULL;

for(int n=0; n<Panel1->ControlCount; n++) {
TControl* Control = Panel1->Controls[n];
TRect Rect = Control->BoundsRect;
HRGN hRgn1 = CreateRectRgnIndirect(
&Rect);
if (hRgn == NULL)
hRgn = hRgn1;
else {
CombineRgn(hRgn, hRgn, hRgn1,
RGN_OR);
DeleteObject(hRgn1);
}
}
SetWindowRgn(Panel1->Handle, hRgn, TRUE);
DeleteObject(hRgn);
}

[penu]

用这些方法没有问题的，你把源码贴出来看看。

[penu]

to:JSP
你用的是设置panel的可视区域吧？

[jishiping]

之前试的是Form，刚才用Panel试了一下，果然不行。我估计只有父窗口为NULL的窗口才可以使用SetLayeredWindowAttributes。我没有最新的MSDN，这个函数在BCB的帮助以及老的MSDN里都查不到。还是使用我说的方法吧，对所有的Windows都有效。

[fractalcloud]

终于弄清楚了：每次实验大侠们的代码时，我的Panel1上没放任何其他控件，于是Panel1控件没有将其下的背景透出来。当我在Panel1上放上控件后，透明效果终于出来了……估计实际用Panel的时候，没人会不在上面放任何东西吧？

[penu]

咦？真是这样。但我印象中好象有这样做并成功过……难道我记错了……

[penu]

但MSDN中没有说这个函数只对父窗口为NULL有效啊！

[痞子酷]

又学啦一招
:)

[frankxht]

jishiping(JSP 季世平) 的代码我运行时正确，可是用SetWindowLong和SetLayeredWindowAttributes 时就像 fractalcloud(当饮三万六千杯) 说的第二个函数返回值为0，我是2000操作系统。

[jishiping]

在Win2000下我试了，没有问题啊。
SetWindowLong(Handle,GWL_EXSTYLE,GetWindowLong(Handle,
GWL_EXSTYLE)|WS_EX_LAYERED);
if (!SetLayeredWindowAttributes(Handle,0,50,LWA_ALPHA))
ShowMessage(SysErrorMessage(GetLastError())); //显示错误信息