Delphi中如何做透明的窗体
编号：QA002739
建立日期: 2000年3月18日 最后修改日期：2003年12月6日
所属类别：
Ｑ
caicheng:
操作系统: windows 98
编程工具: delphi 4.0
问题: 我想做一个透明的Form,不是用一个bmp外加一个mask的那种。也不用控件，在VB中可以使用
几个参数即可，（可在这里找到QA000129 "如何使窗口透明"），但相同的办法用在delphi中却不行。请问如何做一个这样的form？简单，代码少，不用控件。
Ａ回答:
要实现真正的透明窗体，应该采用QA000260 "是否有改变Form外形(如圆形)的方法"的方法。应该先根据窗体上的控件的位置建立多个矩形区域，再组合成一个区域，然后利用API实现透明窗体。Borland的Corbin Dunn曾发表过一篇文章Creating transparent windows介绍了这种方法：http://community.borland.com/article/0,1410,26277,00.html。下面是这篇文章的部分译文（译:DBoy）：
也许你曾经看见过这样的一些窗体，它的一部分是透明的。那么我们在Delphi中应该怎么实现这种效果呢？下面的将说到如何实现这种效果：
一种方法是为你的窗体添加 WS_EX_TRANSPARENT 样式。虽然它可以动作起来，但是它还不能完全实现我们想要的效果，而且，微软也建议只为那些运行期比较短的样式窗体使用 WS_EX_TRANSPARENT 样式。
第二种方法就是应用WIN2000所支持的层次化窗体特性。不过这将使你的应用程序只局限在WIN2000下使用。
你可以使用SetWindowRgn API函数精确的指定你所需要窗体显示的部分。这其中最困难的就是要创建你所要显示的那部分窗体的区域。解决问题的办法就是遍历窗体上所有可视的控件，然后创建包含所有这些小区域的一个巨大的区域。下面是具体的实现：
procedure TForm1.SetRegions;
var
I: Integer;
RgnAll, RgnCtrl: HRGN;
begin
RgnAll := 0;
for I := 0 to ControlCount - 1 do
begin
with Controls[I] do
begin
if Visible then
begin
// 为所有的可视控件创建一个区域
RgnCtrl := CreateRectRgn(Left, Top, Left + Width, Top + Height);
// 组合上面创建的所有区域
if (RgnCtrl <> 0) and (RgnAll <> 0) then
begin
CombineRgn(RgnAll, RgnAll, RgnCtrl, RGN_OR);
DeleteObject(RgnCtrl);
end
else
RgnAll := RgnCtrl; // 这是第一个创建的区域
end;
end;
end;
// Now, set the RgnAll as what we see for the Window
if RgnAll <> 0 then
begin
(*
下面是SetWindowRgn在帮助文件中的注释:
”当调用SetWindowRgn成功后,操作系统将拥有区域句柄hRgn所指定的区域。并且操作系统没有为这个区域考贝副本。因此，你不应再用这个区域句柄调用其它的函数。特别是不要关闭这个句柄。”
因此不要在使用SetWindowRgn后对RgnAll调用DeleteObject(感谢Richard Albury指出这点)该文的以前版本就范了以上错误。
*)
SetWindowRgn(Handle, RgnAll, True);
end;
end;
注意，我在使用完这个区域后应该怎样调用DeleteObject呢。如果不调用，将导致Windows资源的泄漏。我使用API CreateRectRgn,如果你有不同的形状也可以使用CreatePolygonRgn。
你会碰到的一个问题是如何处理窗体中移动的控件。如果你作用程序移动控件（比如：在OnMouseMove事件当中），那么控件后面的区域将会露出来。同样，控件在移动后也许不能正确的重画。这有一个简单的方法就是重新调用etRegions函数更新窗体中可见的区域，并且调用控件的Repaint方法使控强制性的重画。如下：
procedure TForm1.GenericMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
// 如果控件没有移动，则立刻退出。
if (X - LastX = 0) and (Y - LastY = 0) then Exit;
// 移动控件
with (Sender as TControl) do
begin
Left := Left + (X - LastX);
Top := Top + (Y - LastY);
end;
SetRegions;
(Sender as TControl).Repaint;
end;
现在你将能为你的窗体添加透明的效果了。
相关问题：
QA001192 "如何做一个象WINAMP播放器那样界面的程序"
QA003213 "用Win2000新的API函数制作透明窗口"
此问题由李海回答。
附加关键字：编程, 源程序, programming, source code, Delphi, VCL, Borland, 窗体与菜单, form, window, tform。
| |
|
|
| |
|
|
