请教如何制作半透明窗体？(100分)

不用win2000新提供的API
用win98下能运行的。
谢谢！

邮件地址我给你一个

realyanyan@21cn.com
谢谢
收到就结束问题

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.brush.style:= bsclear;
form1.borderstyle:= bsnone;
end;
如果是你想要的结果，给我点分吧，很穷的，如果不是也没关系，赫赫。

好像那個影霸做得很好

Solid_Snake
你说的透明窗体，我说的是半透明窗体
抱歉，不能给你分了

c2008
我等到花儿也谢了~~~~~~~~~~

从DELPHI6开始,TFORM提供了两个属性:ALPHABLEND,和ALPHABLENDVALUE,要实现半透明,只要将
ALPHABLEND设为TRUE,然后设置ALPHABLENDVALUE的值就可以了.

给你发了邮件,看看能行吧.

delphi6中Form本来就提供该属性，你在属性里找一下！

D6可以直接做出呀！
设置AlphaBlend属性呀！

不过只能在2K,NT,XP下运行成功的.

michael.fly
你太帅了！！

DEN,邮件没收到。。。。

michael.fly
你说的那个方法编译后，在98下也没问题吧？

纯代码实现你看看
在windows2000下增加了一些API,可以轻易的实现半透明的窗体，源程序如下，必要的地方我加上了注释

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

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

//新增加的常量定义

type

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

function SetLayeredWindowAttributes(hwnd:HWND; crKey:Longint; bAlpha:byte; dwFlags:longint ):longint; stdcall; external user32;//函数声明

var

Form1: TForm1;

implementation

{$R *.DFM}

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);

//第二个参数是指定透明颜色

//第二个参数为0则使用第四个参数设置alpha值，从0到255，其他的我不太清楚，因为没有api帮助

end;







end.

墙头草
你的那个我找过了，只能 win2000以上才可以

如何制作半透明窗口

---- 用过金山词霸的朋友，一定会为其半透明的翻译提示窗口而称奇。究竟这种窗口是如何做出来的呢？下面我们将来探讨这种半透明的窗口的制作方法。

一、 原理
---- 首先，我们先从透明窗口说起，其实透明窗口就是可以透过窗口看到它背景。所以，我们可以将窗口后面的背景图象，显示在窗口前面，就可实现透明窗口的效果了。至于半透明的效果，是在透明的基础上，加上一层滤镜，使看到的背景模糊一点而已。所以，在拿到背景图象后，先在该图象加上一层滤镜（把图象弄模糊），然后再显示在窗口上，就能达到半透明的效果。
---- 我们可归纳出实现半透明窗口的步骤：在窗口显示前其获取背景图 → 对背景图象进行滤镜效果处理 → 将处理过的背景图象显示在窗口前面。

---- （1） 获取背景图象

---- 要获取背景图，先用GetDC(0)函数获取整个屏幕设备场景（DC），再用CopyRect函数拷贝窗口的背景到指定的Tbitmap，该Tbitmap就是我们所要的图象了。其中函数GetDC(0)取得的DC可用TCanvas.Handle保存；而CopyRect是TCancas类的成员函数，作用是从一Canvas中拷贝一指定区域（Rect）到另一Canvas的指定区域。

---- (2）对背景图进行滤镜效果处理

---- 用循环的方法遍历图象的每一点，将各点的某些频段的光波滤除。其实，滤镜种类繁多，所以的算法亦很多，读者们可参考相关资料，选择您满意的方法。本文的滤镜是灰色的，实现方法见TranslucentBmp(Bmp:TBitmap;AColor:TColor;ATransparent:Longint)。其中，参数Bmp是要处理的图象，AColor是滤镜的颜色，ATransparent是透明度。

二、 写程序
----
将以上原理用Delphi编写成程序，在Delphi中新建一Project，Form1的Height和Width分别设成150和300（不要做的太大，不然显示速度很慢），再设置BorderStyle的值为bsNone；在Form1中添加一Timage控件Image1，将其Align属性设成alClient。再添加一标签Label1和按钮TSpeedButton，在Label1的Caption属性中输入"这是一半透明窗口！"，按钮的Caption属性设成"x"，在其OnClick事件中输入一行"Close;"。并将它们Bring to Front。另外，可添加四个TShape，贴在Image1的四边上，以构造Form1的3D效果，如图（一）。各控件的属性如下表：

组件名称 属性 设置值
Form1 BorderStyle BsNone
Height 150
Width 300
TFont 宋体9号
Image1 Align AlClient
Label1 Caption 这是一半透明窗口！
TFont 宋体9号，黄色
SpeedButton1 Caption X
Left 279
Top -1
Height 14
Width 13
Transparent True



图（一）
---- 完整的源代码如下：

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Buttons;

type
TForm1 = class(TForm)
Label1: TLabel;
Shape1: TShape;
Shape2: TShape;
Shape3: TShape;
Shape4: TShape;
Image1: TImage;
SpeedButton1: TSpeedButton;
procedure FormCreate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
//截获背景图象
function GetBackgroundBmp:TBitmap;
//对背景图象进行滤镜处理
procedure TranslucentBmp(Bmp:TBitmap;
AColor:TColor;ATransparent:Longint);
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
//以下截获背景图象
function TForm1.GetBackgroundBmp:TBitmap;
var Scn:TCanvas;
h,w:Integer;
begin
Scn:=TCanvas.Create; //建立整个屏幕的画布
h:=ClientHeight;//窗口的高
w:=ClientWidth; //窗口的宽
Result.Height:=h; //设返回位图的高就是窗口的高
Result.Width:=w;//设返回位图的宽就是窗口的宽
try
Scn.Handle:=GetDC(0);//取得整个屏幕的DC
//以下一行将窗口的背景部分复制到指定的画布中，
也就是本函数的返回值
Result.Canvas.CopyRect(Rect(0,0,w,h),Scn,
Rect(Left,Top,Left+w,Top+h));
ReleaseDC(0, Scn.handle);
finally
Scn.Free;
end;
end;

//以下函数对背景图象进行滤镜处理，
Bmp是要处理的位图；ATransparent是透明度
procedure TForm1.TranslucentBmp(Bmp:
TBitmap;AColor:TColor;ATransparent:Longint);
var BkColor:COLORREF;
ForeColor:Longint;
R,G,B:Int64;
i,j:Integer;
begin
ForeColor:=ColorToRGB(AColor);
with Bmp.Canvas do
for i:=ClientHeight-1 downto 0 do
for j:=ClientWidth-1 downto 0 do
begin
BkColor:=GetPixel(Handle,j,i); //取得每一象素
R:=Byte(ForeColor)+
(Byte(BkColor)-Byte(ForeColor))*ATransparent;
G:=Byte(ForeColor shr 8)+
(Byte(BkColor shr 8)-Byte(ForeColor
shr 8))*ATransparent;
B:=Byte(ForeColor shr 16)+
(Byte(BkColor shr 16)-Byte(ForeColor
shr 16))*ATransparent;
SetPixelV(Handle,j,i,RGB(R,G,B));//合成象素
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var BackgroundBmp:TBitmap;
begin
try
BackgroundBmp:=Tbitmap.Create;
//建立窗口背景图
BackgroundBmp.PixelFormat:=pf24bit;
//指定该图是24位真彩色
BackgroundBmp:=GetBackgroundBmp;
//取得窗口背景图
TranslucentBmp(BackgroundBmp,clBlack,50);
//对该图象进行滤镜处理
Image1.Picture.Bitmap:=BackgroundBmp;
//将处理过的图象显示出来
finally
BackgroundBmp.Free;
end;
end;

procedure TForm1.SpeedButton1Click
(Sender: TObject);
begin
Close;
end;

end.

---- 程序的运行效果如图（一）所示。
三、 结束语
---- 需要说明的是：由于受到以上滤镜算法的速度影响，所以窗口显示时有所延迟，在窗口频繁显示和关闭时不是很流畅

TransparenceForm(handle,200);其中的第二个参数可以调节的,你试试看.

接受答案
michael.fly
得到了大部分分数
谢谢各位

可以参考一下
如何制作半透明窗口
松本电工实业有限公司
舒嵩嵩
---- 用过金山词霸的朋友，一定会为其半透明的翻译提示窗口而称奇。究竟这种窗口是如何做出来的呢？下面我们将来探讨这种半透明的窗口的制作方法。

一、 原理
---- 首先，我们先从透明窗口说起，其实透明窗口就是可以透过窗口看到它背景。所以，我们可以将窗口后面的背景图象，显示在窗口前面，就可实现透明窗口的效果了。至于半透明的效果，是在透明的基础上，加上一层滤镜，使看到的背景模糊一点而已。所以，在拿到背景图象后，先在该图象加上一层滤镜（把图象弄模糊），然后再显示在窗口上，就能达到半透明的效果。
---- 我们可归纳出实现半透明窗口的步骤：在窗口显示前其获取背景图 → 对背景图象进行滤镜效果处理 → 将处理过的背景图象显示在窗口前面。

---- （1） 获取背景图象

---- 要获取背景图，先用GetDC(0)函数获取整个屏幕设备场景（DC），再用CopyRect函数拷贝窗口的背景到指定的Tbitmap，该Tbitmap就是我们所要的图象了。其中函数GetDC(0)取得的DC可用TCanvas.Handle保存；而CopyRect是TCancas类的成员函数，作用是从一Canvas中拷贝一指定区域（Rect）到另一Canvas的指定区域。

---- (2）对背景图进行滤镜效果处理

---- 用循环的方法遍历图象的每一点，将各点的某些频段的光波滤除。其实，滤镜种类繁多，所以的算法亦很多，读者们可参考相关资料，选择您满意的方法。本文的滤镜是灰色的，实现方法见TranslucentBmp(Bmp:TBitmap;AColor:TColor;ATransparent:Longint)。其中，参数Bmp是要处理的图象，AColor是滤镜的颜色，ATransparent是透明度。

二、 写程序
----
将以上原理用Delphi编写成程序，在Delphi中新建一Project，Form1的Height和Width分别设成150和300（不要做的太大，不然显示速度很慢），再设置BorderStyle的值为bsNone；在Form1中添加一Timage控件Image1，将其Align属性设成alClient。再添加一标签Label1和按钮TSpeedButton，在Label1的Caption属性中输入"这是一半透明窗口！"，按钮的Caption属性设成"x"，在其OnClick事件中输入一行"Close;"。并将它们Bring to Front。另外，可添加四个TShape，贴在Image1的四边上，以构造Form1的3D效果，如图（一）。各控件的属性如下表：

组件名称 属性 设置值
Form1 BorderStyle BsNone
Height 150
Width 300
TFont 宋体9号
Image1 Align AlClient
Label1 Caption 这是一半透明窗口！
TFont 宋体9号，黄色
SpeedButton1 Caption X
Left 279
Top -1
Height 14
Width 13
Transparent True



图（一）
---- 完整的源代码如下：

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Buttons;

type
TForm1 = class(TForm)
Label1: TLabel;
Shape1: TShape;
Shape2: TShape;
Shape3: TShape;
Shape4: TShape;
Image1: TImage;
SpeedButton1: TSpeedButton;
procedure FormCreate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
//截获背景图象
function GetBackgroundBmp:TBitmap;
//对背景图象进行滤镜处理
procedure TranslucentBmp(Bmp:TBitmap;
AColor:TColor;ATransparent:Longint);
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
//以下截获背景图象
function TForm1.GetBackgroundBmp:TBitmap;
var Scn:TCanvas;
h,w:Integer;
begin
Scn:=TCanvas.Create; //建立整个屏幕的画布
h:=ClientHeight;//窗口的高
w:=ClientWidth; //窗口的宽
Result.Height:=h; //设返回位图的高就是窗口的高
Result.Width:=w;//设返回位图的宽就是窗口的宽
try
Scn.Handle:=GetDC(0);//取得整个屏幕的DC
//以下一行将窗口的背景部分复制到指定的画布中，
也就是本函数的返回值
Result.Canvas.CopyRect(Rect(0,0,w,h),Scn,
Rect(Left,Top,Left+w,Top+h));
ReleaseDC(0, Scn.handle);
finally
Scn.Free;
end;
end;

//以下函数对背景图象进行滤镜处理，
Bmp是要处理的位图；ATransparent是透明度
procedure TForm1.TranslucentBmp(Bmp:
TBitmap;AColor:TColor;ATransparent:Longint);
var BkColor:COLORREF;
ForeColor:Longint;
R,G,B:Int64;
i,j:Integer;
begin
ForeColor:=ColorToRGB(AColor);
with Bmp.Canvas do
for i:=ClientHeight-1 downto 0 do
for j:=ClientWidth-1 downto 0 do
begin
BkColor:=GetPixel(Handle,j,i); //取得每一象素
R:=Byte(ForeColor)+
(Byte(BkColor)-Byte(ForeColor))*ATransparent;
G:=Byte(ForeColor shr 8)+
(Byte(BkColor shr 8)-Byte(ForeColor
shr 8))*ATransparent;
B:=Byte(ForeColor shr 16)+
(Byte(BkColor shr 16)-Byte(ForeColor
shr 16))*ATransparent;
SetPixelV(Handle,j,i,RGB(R,G,B));//合成象素
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var BackgroundBmp:TBitmap;
begin
try
BackgroundBmp:=Tbitmap.Create;
//建立窗口背景图
BackgroundBmp.PixelFormat:=pf24bit;
//指定该图是24位真彩色
BackgroundBmp:=GetBackgroundBmp;
//取得窗口背景图
TranslucentBmp(BackgroundBmp,clBlack,50);
//对该图象进行滤镜处理
Image1.Picture.Bitmap:=BackgroundBmp;
//将处理过的图象显示出来
finally
BackgroundBmp.Free;
end;
end;

procedure TForm1.SpeedButton1Click
(Sender: TObject);
begin
Close;
end;

end.

---- 程序的运行效果如图（一）所示。
三、 结束语
---- 需要说明的是：由于受到以上滤镜算法的速度影响，所以窗口显示时有所延迟，在窗口频繁显示和关闭时不是很流畅。但不知读者朋友们有没有发现，金山词霸的半透明窗口效果只能在带MMX指令集的处理器中才起作用，所以笔者大胆推测，金山词霸的半透明窗口是经过MMX的多媒体指令集进行优化的，这样它才可以达到理想的效果。有兴趣的朋友可以试一下，说不定您做得比金山词霸还好呢。 ---- 以上程序在中文Windows 98、Delphi 4 C/S环境下编译通过。