实时的透明窗体！！help help me !!(50分)

我想做一个透明窗体，但这个窗体上放了一个image控件。
image可以变得透明。
但如何让窗体也变得透明呢，而且在拖动窗体时背景要时实变化。
如果这个窗体是一个子窗体呢，如何也让这个子窗体变得透明（实时拖动）.

找个控件吧，程序员大本营2000（荟萃版）上有这种控件，去买正版或D版吧。
你也可到 www.csdn.net 上去找

你可以自己用“透明”搜索一下，我就是从delphibbs上面搜索下来的！

transparent form ?
哈哈...我为你做好了，你参考吧.
{Add a button to a form and try this:}
procedure TForm1.FormCreate(Sender: TObject);
var
FullRgn, ClientRgn, ButtonRgn: THandle;
Margin, X, Y: Integer;
begin
Margin := (Width - ClientWidth) div 2;
FullRgn := CreateRectRgn(0, 0, Width, Height);
X := Margin;
Y := Height - ClientHeight - Margin;
ClientRgn := CreateRectRgn(X, Y, X + ClientWidth, Y + ClientHeight);
CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF);
X := X + Button1.Left;
Y := Y + Button1.Top;
ButtonRgn := CreateRectRgn(X, Y, X + Button1.Width, Y + Button1.Height);
CombineRgn(FullRgn, FullRgn, ButtonRgn, RGN_OR);
SetWindowRgn(Handle, FullRgn, True);
end;

窗体透明有很多的方法,其中一种就是上面"卷起千堆雪tyn",的方法,这个方法并不是典型的
不规则窗体,另外还有一种透明窗体的实现方法类似于抓屏,也就是将窗体后面的内容抓取
下来,再复制到程序上面,金山词霸就是使用的这种方法.

卷起千堆雪tyn：
这种方法我用过，但是这个窗体完全透明了，连上面的image也不见了，所有控件都没有用了。
我希望可以窗体是透明的而窗体上的image中的图片可以看见的，
而且这个用法在子窗体里不透明。
我要风掉了。

你可以试试 BITRGN 这个组件，我用的就是这个，挺好用的。你要的话我给你发过去

我做了个小程序，有你类似的功能：以下是部分代码：
procedure TSprite.SaveBackGround();
var
SC:TCanvas;
begin
SetWindowPos(FormMain.Handle,HWND_BOTTOM,FormMain.Left,FormMain.Top,FormMain.Width,FormMain.Height,SWP_HIDEWINDOW);
SC:=TCanvas.Create;
try
SC.Handle:=GetDC(0);
FOldBmp.Canvas.CopyRect(Rect(0,0,SPWIDTH,SPHEIGHT),SC,Rect(FPosition.X,FPosition.Y,FPosition.X+SPWIDTH,FPosition.Y+SPHEIGHT));
FNewBmp.Assign(FOldBmp);
ReleaseDC(0,Sc.Handle);
finally
SC.Free;
end;
FormMain.Canvas.Draw(0,0,FOldBmp);//this line here let the form be transparent when the form create
SetWindowPos(FormMain.Handle,HWND_TOPMOST,FormMain.Left,FormMain.Top,FormMain.Width,FormMain.Height,SWP_NOMOVE+SWP_SHOWWINDOW);
end;

procedure TSprite.Paint(X,Y:integer;Image:TBitmap);
function XslateRect(R:Trect;X,Y:integer):TRect;
begin
with R do Result:=Rect(Left-X,Top-Y,Right-X,Bottom-Y);
end;//XslateRect(R:Trect;X,Y:integer):TRect;
var
SC:TCanvas;
OrgRect,OldRect,NewRect,TmpRect:TRect;
OldRgn,NewRgn,TmpRgn:HRgn;
TmpWindow:Hwnd;
begin
OrgRect:=Rect(0,0,SPWIDTH,SPHEIGHT);
OldRect:=Rect(FPosition.X,FPosition.Y,FPosition.X+SPWIDTH,FPosition.Y+SPHEIGHT);
NewRect:=Rect(X,Y,X+SPWIDTH,Y+SPHEIGHT);

OldRgn:=CreateRectRgnIndirect(OldRect);
NewRgn:=CreateRectRgnIndirect(NewRect);
TmpRgn:=CreateRectRgnIndirect(OldRect);

TmpWindow:=GetForeGroundWindow();
if (TopWindow<>TmpWindow) and (TmpWindow<>FormMain.Handle) and (TmpWindow<>Application.Handle) then begin
SaveBackground();
TopWindow:=TmpWindow;
end;

try
SC:=TCanvas.Create();
try
SC.Handle:=GetDC(0);
FNewBmp.Canvas.CopyRect(OrgRect,SC,NewRect);
CombineRgn(TmpRgn,NewRgn,OldRgn,RGN_AND);
GetRgnBox(TmpRgn,TmpRect);
FNewBmp.Canvas.CopyRect(XslateRect(OldRect,X,Y),FOldBmp.Canvas,OrgRect);
FOldBmp.Canvas.CopyRect(OrgRect,FNewBmp.Canvas,OrgRect);
FNewBmp.Canvas.Draw(0,0,Image);
FormMain.Canvas.Draw(0,0,FNewBmp);
ReleaseDC(0,SC.Handle);
finally
SC.Free;
end;
finally
DeleteObject(TmpRgn);
DeleteObject(NewRgn);
DeleteObject(OldRgn);
end;
FPosition.X:=X;FPosition.Y:=Y;
end;//Paint(X,Y:integer;Image:TBitmap);


你也可以写信给我，我把完整程序给你。。

透明窗口的设计 　　
运行环境：Delphi 3 及其以上版本， Windows 2000

　　我们以前都看过许多介绍设计透明窗口的文章，它们大多数实用的是将指定的区域用背景填充的方法。下面我们来看一下怎样使用Windows 2000 中的 GUI 功能--也被叫做"分层窗口"，来实现完全的透明窗口。
　　透明窗口的一个很好的例子是在Windows 2000 的菜单和开始菜单中使用的淡入效果。
　　要创建一个分层窗口，当调用 Create WindowEx 函数时，我们要指定 WS_EX_LAYERED 来扩展窗口的风格，或者在窗口创建以后调用SetWindowLong 函数设定WS_EX_LAYERED的值。在函数Create WindowEx 被调用后，分层窗口并不会变得可见，而是要等到对这个窗口调用SetLayeredWindowAttributes 或者UpdateLayeredWindow 后。
　　WS_EX_LAYERED是一个新的常量，所以我们必须事先对它声明。还有几个和Alpha 组合的常量也要事先声明。

　　const WS_EX_LAYERED = $80000;
　　AC_SRC_OVER = $0;
　　AC_SRC_ALPHA = $1;
　　AC_SRC_NO_PREMULT_ALPHA = $1;
　　AC_SRC_NO_ALPHA = $2;
　　AC_DST_NO_PREMULT_ALPHA = $10;
　　AC_DST_NO_ALPHA = $20;
　　LWA_COLORKEY = $1;
　　LWA_ALPHA = $2;
　　ULW_COLORKEY = $1
　　ULW_ALPHA =$2
　　ULW_OPAQUE = $4

　　下面是对新函数的声明：
　　function SetLayeredWindowAttributes(hwnd:HWND; crKey:Longint; bAlpha:byte;
　　dwFlags:longint ):longint; stdcall; external user32;

　　要使用这个新功能创建一个新的窗口， 在创建事件句柄中（Create evert handle）输入以下代码：
　　procedure TForm1.FormCreate(Sender: TObject);
　　var l:longint;
　　begin
　　l:=getWindowLong(Handle, GWL_EXSTYLE);
　　l := l Or WS_EX_LAYERED;
　　SetWindowLong (handle, GWL_EXSTYLE, l);
　　SetLayeredWindowAttributes (handle, 0, 180, LWA_ALPHA);
　　end;

　　SetLayeredWindowAttributes 的第二个参数是crKey. 这是一个指向颜色值（ColorRef value） 的指针，它标示的是透明处的象素颜色，我把它设置为0。第三个参数bAlpha是一个表示窗口不透明程度的变量，它的值在0～255之间。例如，0代表的是完全透明，而255代表的是完全不透明。第四个参数dwFlags 指定窗口使用crKey 还是bAlpha。LWA_ALPHA表示使用bAlpha来确定窗口的透明程度。另一个值是LWA_COLORKEY，它表示使用crKey来确定窗口的透明程度。
　　运行这个程序，你就会得到一个透明的窗口。现在，如果你在窗口上放置按钮（button），文本框(textbox) 或是其它控件，它们也会变成透明的！

　　请注意，分层窗口占用很大的系统资源，至少要在Pentium 200 或者以上的机器上运行。我用的是PⅡ 600 MHZ，但是如果窗口太大的话，它还是不能在屏幕上很平滑的移动。千万不要把所有的窗口都设计成透明的，如果那样的话，每次刷新窗口的时候，你都要等上半小时。

　　这只是一个很简单的介绍，关于本文中用到的API 函数，你可以访问www.msdn.mircosoft.com 网站，或是 www.microsoft.com/china/msdn 以获取更详细的信息。

用这个就行：
function Tform1.CreateRegion(wMask:TBitmap;wColor:TColor;hControl:THandle): HRGN;
var
dc, dc_c: HDC;
rgn: HRGN;
x, y: integer;
coord: TPoint;
line: boolean;
color: TColor;
begin
dc := GetWindowDC(hControl);
dc_c := CreateCompatibleDC(dc);
SelectObject(dc_c, wMask.Handle);
BeginPath(dc);
for x:=0 to wMask.Width-1 do
begin
line := false;
for y:=0 to wMask.Height-1 do
begin
color := GetPixel(dc_c, x, y);
if not (color = wColor) then
begin
if not line then
begin
line := true;
coord.x := x;
coord.y := y;
end;
end;
if (color = wColor) or (y=wMask.Height-1) then
begin
if line then
begin
line := false;
MoveToEx(dc, coord.x, coord.y, nil);
LineTo(dc, coord.x, y);
LineTo(dc, coord.x + 1, y);
LineTo(dc, coord.x + 1, coord.y);
CloseFigure(dc);
end;
end;
end;
end;
EndPath(dc);
rgn := PathToRegion(dc);
ReleaseDC(hControl, dc);
Result := rgn;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
w1:TBitmap;
w2:TColor;
rgn: HRGN;
begin
w1:=TBitmap.Create;
w1.Assign(image1.Picture);
w2:=w1.Canvas.Pixels[0,0];
rgn := CreateRegion(w1,w2,Handle);
if rgn<>0 then
begin
SetWindowRgn(Handle, rgn, true);
end;
w1.Free;

end;

delphi 怎么实现Foxmail消息一样的半透明窗体呢？请讨论

将form的color 属性设成 clGray
transparentcolor 设成 true
transparentcolorvalue 设成 和 color 一样的

还有把 form 的 borderstyle 设成 bsNone

Blend Window require the Windows 2000 or later version!
Use the SetWindowLong(..GWL_ALPHA);
SetLayeredWindowAttributes(Handle...);

你是要完全透明还是半透明:
如果是完全透明,就用卷起千堆雪tyn的方法,这实际上是做异型窗体,
如果是半透明,而且要求是实时的话,必须在win2000/win Xp平台上才行
具体做法(必须是delphi6):
alphablend:=true,
alphablendvalue:=你需要的值(如 200)
就是这么简单!!
以上两个属性可以在object inspector 中直接修改,一行代码都不用写

to ZhuHongQing,
还是不能显示图象。

下面有一个源程序，可以满足你的要求！
<a href="http://www.vclxx.org/DELPHI/D32SAMPL/XPFORM.ZIP">xpform</a>

在DELPHI6中可以很方便地实现窗体透明的效果

接受答案了.