如何在 Win2k 下实现半透明的 Panel(50分)

在 Win2k 下可以使用函数SetLayeredWindowAttributes实现半透明窗口，如何实现<br>半透明的 Panel 呢？<br>非常急。

窗体透明了,panel也不就是透明了的么?<br>

问题是我不需要透明的窗口，仅仅需要透明的 Panel.

SetLayeredWindowAttributes(在此换上Panel.Handle, ...) 这样不知行不行我也没试过.

不行。我试过了。<br><br>》》Question：<br><br>Panel是放在Form上的。<br>不知你的panel透明之后。透过来的是什么呢？<br>Panel下的Form上的东西呢？还是form下桌面上的东西呢？<br>

To : xwings<br>我仅仅需要能显示 Form 上的东西。

可用创建不规格则窗体来实现,把Panel所占用的区域去掉。

panel透明有什么用阿.<br>不行的话自己写一个panel吧.<br>

你可以不用PANEL的吧，反正是一个能写上字的控件就行了是吧。<br>取得该控件（如PAINTBOX)在FORM中的位置，然后COPYRECT它，将之COPY到PAINTBOX中做<br>背景，再在上面写上你要的字就OK了，对吧。

不好意思，顺便问一下怎样才能调用SetLayeredWindowAttributes().

SetLayeredWindowAttributes 是 Win2K 新的函数，详细请查阅 MSDN

to question:<br>有例子吗？我也想知道怎么用？ 谢了

注意，该功能只能在 WIN2K 下运行。<br><br>const &nbsp;user32 &nbsp; &nbsp; &nbsp; &nbsp;= 'user32.dll'; &nbsp;<br>WS_EX_LAYERED = $00080000; &nbsp;<br>LWA_ALPHA &nbsp; &nbsp; = $00000002;<br>function SetLayeredWindowAttributes(hWnd: HWND;<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; crKey: TColorRef; <br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;bAlpha: Byte; &nbsp;<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; dwFlags: DWord): BOOL; stdcall; <br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;external user32<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; name 'SetLayeredWindowAttributes';<br>var l:longint;<br>begin &nbsp;<br>l:=getWindowLong(Handle, GWL_EXSTYLE);<br>&nbsp; &nbsp;l := l Or WS_EX_LAYERED; <br>&nbsp;SetWindowLong (handle, GWL_EXSTYLE, l);<br>&nbsp; SetLayeredWindowAttributes(handle, 0, 200, LWA_ALPHA); <br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;^^^ 透明度end;

&lt;p align="left"&gt;<br>&lt;font color="#FF0000"&gt;<br>大家帮帮忙，给看一下&lt;/font&gt;&lt;/p&gt;<br><br>&lt;p align="left"&gt;<br>&amp;nbsp;<br>&lt;font color="#FF0000" size="4"&gt;<br>&lt;a href="http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=506445"&gt;<br>“寻找简单的方法，filter消息”&lt;/a&gt;<br>&lt;/font&gt;&lt;/p&gt;<br><br>&lt;p align="left"&gt;如有违反论坛规则，还请版主砍掉并批评指出&lt;/p&gt;

to Question<br><br>关于SQLDMO,在大富翁看到你的帖子，但文件download不了，您能mail给我吗？谢谢！<br>gy2k@21cn.com<br>-----------------------------------------------------------------------<br>谢谢，我看了，基本满足了我的要求，各位也可看看，其实 Lanny 写的很简单<br>但生成的脚本却是符合要求的。我将 Lanny 的例子上传到了我的主页(With Source code)<br>http://www.iszero.com/~oyq/dmodemo.zip<br>-----------------------------------------------------------------------<br><br><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;

嗨！又多了点知识了！

http://www.iszero.com/~oyq/dmodemo.zip怎么没有，能不能给份看看<br>mailto : iedelphi@hotmail.com<br>谢谢

好久的东西了，我 HD 上也没有了，当时也是一个项目用。抱歉了。 [][][]