创建透明窗体
也许你曾经看见过这样的一些窗体，它的一部分是透明的。那么我们在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;
现在你将能为你的窗体添加透明的效果了。
