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

2002-12-17 09:46:37 1.6k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

mozart2000 墨衍会员 · AI 创作全网分发关注 + 加入社区

涨薪技术|0到1学会性能测试第48课-Apache日志文件分析最近推文主要学习Apache服务器的监控与调优。不管是什么类型的web服务器还是应用服务器，我们做性能测试首先应该掌握如何监控服务器。监控服务器的两种方法：status和apachtop两种。监控服务器是为了得到服务器的实时数据，为分析做准备。但仅仅是监控还是不够，我们必须知道Apache工作原理，分析那些指令会影响服务器的信息，当然对Apache服务器来说，其调优最核心的就是MPM相关参数的设置，这些参数设置的如何会直接影响服务器的性能。所以必须对MPM的工作原理和参数有深入的了解。阅读详情

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

...全文

CentOS 8 Apache 安全集成指南：systemd、firewalld 与 SELinux 协同配置 Apache 是最经典的 Web 服务器软件，其核心原理是通过 HTTP 协议响应客户端请求，依赖进程模型（如 prefork）和模块化架构实现功能扩展。在现代 RHEL 系统如 CentOS Stream 8 中，Apache 不再独立运行，而是深度集成于 systemd 服务管理、firewalld 动态防火墙策略及 SELinux 强制访问控制三大安全基座之中。这种集成带来更高安全性与可审计性，但也要求运维者理解各组件间的协作机制——例如 systemctl 启动本质是向 systemd 请求服务生命阅读详情

mozart2000

VCL组件使用和开发 604 成员 13,456 内容

+ 关注 + 加入社区

切换为时间正序

jishiping 2003-01-03

打赏
举报

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

frankxht 2003-01-03

打赏
举报

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

痞子酷 2003-01-03

打赏
举报

又学啦一招
:)

penu 2003-01-03

打赏
举报

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

penu 2003-01-03

打赏
举报

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

fractalcloud 2003-01-03

打赏
举报

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

jishiping 2003-01-03

打赏
举报

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

penu 2003-01-03

打赏
举报

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

penu 2003-01-03

打赏
举报

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

jishiping 2003-01-02

打赏
举报

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 2003-01-02

打赏
举报

先要用SetWindowLong这个函数。

fractalcloud 2002-12-30

打赏
举报

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

Why??

penu 2002-12-28

打赏
举报

取得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类型。

shally5 2002-12-27

打赏
举报

学习！

bbonline 2002-12-27

打赏
举报

用FlatStyle2K控件可以实现

hlmsoft 2002-12-22

打赏
举报

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

shudingbo 2002-12-22

打赏
举报

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

hlmsoft 2002-12-20

打赏
举报

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

tsk 2002-12-20

打赏
举报

我帮你看看！

devie 2002-12-20

打赏
举报

SemiPercent属性设置透明度，

加载更多回复（8）

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

相关推荐