如何制作半透明窗口 ---- 用过金山词霸的朋友，一定会为其半透明的翻译提示窗口而称奇。究竟这种窗口是如何做出来的呢？下面我们将来探讨这种半透明的窗口的制作方法。 一、 原理 ---- 首先，我们先从透明窗口说起，其实透明窗口就是可以透过窗口看到它背景。所以，我们可以将窗口后面的背景图象，显示在窗口前面，就可实现透明窗口的效果了。至于半透明的效果，是在透明的基础上，加上一层滤镜，使看到的背景模糊一点而已。所以，在拿到背景图象后，先在该图象加上一层滤镜（把图象弄模糊），然后再显示在窗口上，就能达到半透明的效果。 ---- 我们可归纳出实现半透明窗口的步骤：在窗口显示前其获取背景图 → 对背景图象进行滤镜效果处理 → 将处理过的背景图象显示在窗口前面。 ---- （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;interfaceuses 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.---- 程序的运行效果如图（一）所示。 三、 结束语 ---- 需要说明的是：由于受到以上滤镜算法的速度影响，所以窗口显示时有所延迟，在窗口频繁显示和关闭时不是很流畅
透明窗口： 在FormCreate中，添加代码： Brush.Style:=bsClear; 即可，注意，不是Canvas.Brush.Style！ procedure TForm1.FormCreate(Sender: TObject); var p:longint; begin p:=GetWindowLong(handle,GWL_STYLE);//获取窗体属性 SetWindowLong(handle,GWL_EXSTYLE,p+WS_EX_TRANSPARENT);//设置新属性 form1.Refresh; end; *************************** To make a form transparent you should put these 2 lines in form's creation procedure:procedure TForm1.FormCreate(Sender: TObject); begin Form1.Brush.Style:=bsClear; Form1.BorderStyle:=bsNone; end;If you use only that you will notice that the form is transparent but if you put something over it, it will not clear its own background and traces of that object will be left on the form. To solve that you need to make sure that the transparent form's Paint procedure (WM_PAINT) will be called last. To do that you need to override the TWinControl (TForm's ancestor) CreateParams procedure and set the Form's extended style (ExStyle) to WS_EX_TRANSPARENT.Here's the full code for making a form transparent:type TForm1 = class(TForm) procedure CreateParams(var Params:TCreateParams); override; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.DFM}procedure TForm1.CreateParams(var Params:TCreateParams); Begin inherited CreateParams(Params); Params.ExStyle:=WS_EX_TRANSPARENT; End;procedure TForm1.FormCreate(Sender: TObject); begin Form1.Brush.Style:=bsClear; Form1.BorderStyle:=bsNone; end;
Agent技术的应用 解放军合肥炮兵学院张建军中保财险安徽省铜陵市分公司韩莹---- Microsoft Agent是微软公司于1997年9月发布的一项代理软件开发技术，而后被集成到Internet Explorer 4.0 Plus及更高版本中，目前版本为2.0，支持简体中文。作为一种软件代理工具，Agent以其强大的交互功能、鲜明的人性特点、优美的操作界面和简便统一的编程方法，对由菜单、按钮、提示框等组成的传统人机交互方式产生了很大影响，在多媒体创作、Web应用、教育软件、软件帮助系统和辅助工具制作等方面，具有广阔的应用前景。 一、 Microsoft Agent技术简介---- Agent一词的中文意思是“代理”，故名思意，这类代理软件的主要作用是提供一种易于理解和使用的操作界面，接受用户的指令、代替用户完成某些复杂繁琐的工作、或为用户提供帮助。科学研究表明：从人机工程的角度考虑，赋予电脑或程序更多人性化色彩，如支持语音合成输出信息、语音识别输入指令、智能提示、动画等，能够充分提高人机交互的有效性和易用性。---- 我们知道，在Office 97帮助系统中有一种叫作Office助手的代理软件，其中幽默风趣的动画人物，如“大眼夹”，能够根据用户的操作步骤“智能化”地提出一些建议或帮助信息。与Office助手相比，Agent功能更加丰富强大，表现在： Office助手沿用传统的不透明矩形窗口，窗口后面的背景被完全挡住；Agent动画人物本身是一个“AlwaysOnTop”窗口，只有人物身体部分挡住背景，其余部分透明。Office助手只允许Office 97的各个组件调用，Agent动画人物可由任何Windows程序调用； Agent支持文字气球和输入提示条，在输出语音的同时把文字输出至一个卡通式文字气球中。如果电脑系统中安装有Agent语音识别引擎，当用户按住输入键，如Scroll Lock键，在Agent人物下方出现一个输入命令窗口，表示它正在“聆听”用户的语音命令。Agent提供Genie、Merlin、Bobby和Peedy等动画人物，不仅具有优美诙谐的动作，而且可以通过声卡、麦克风与用户交谈。二、 Microsoft Agent安装方法---- Agent是一种ActiveX控件，其服务器程序（C:\WINDOWS\MSAGENT\Agentsvr.exe）运行在Win95/98/NT操作平台上，为其它调用Agent的客户程序提供服务。客户程序可以是利用VB、C++、Delphi、VFP、PB等开发的应用软件，也可以是HTML文件中的Visual Script、Java Script脚本语言代码。安装Agent核心组件Msagent.exe。安装Lernout & Hauspie TruVoice Text-to-Speech Engine（完成从文字合成语音的工作，目前版本只支持英语）Cgram.exe。安装Microsoft Command and Control Speech Engine（提供语音识别功能，目前版本只支持英语）Actcnc.exe。 Agent动画人物人物数据文件。Agent支持单结构角色文件（.acs，角色数据与动画数据存于同一个文件），也支持分离结构角色文件（.acf，角色数据存于.acf中，动画数据存于.aca中）。基于本地硬盘和网络的应用程序可采用.acs文件，基于Web页面的HTML文件在浏览器中访问时会自动调用，习惯上多使用.acs文件。---- 上述文件可从 http://www.microsoft.com//workshop/imedia/agent/default.asp下载。三、 Microsoft Agent编程要点---- 1、 在Delphi中添加Agent控件---- 在Delphi IDE中选择菜单Component，Import ActiveX Control——在Import ActiveX下的列表框中选择Microsoft Agent Control 2.0（Version 2.0），点击按钮Install——在Install对话框中点击按钮OK——在Confirm对话框中点击按钮Yes——在对话框中点击按钮OK。至此，Agent控件被添加到Delphi组件板ActiveX页上。---- 2、 在Delphi中调用Agent控件---- ⑴、在Delphi IDE 中新建Project1（包含Form1），在Form1上放置Agent1（Name属性为MyAgent）、Button1。 ---- ⑵、定义变量。Var Peedy: IagentCtlCharacterEx; Request1,Request2: IagentCtlRequest;---- ⑶Agent主要属性、方法、事件。 ---- ①Characters属性与Load、Unload方法：初始化Agent，加载动画数据，卸载动画人物---- Request1 := MyAgent.Characters.Load( 'Peedy', 'C:\Windows\System\Peedy.acs' );---- Peedy := MyAgent.Characters.Character( 'Peedy' );---- MyAgent.Characters.Unload('Peedy');---- ②Show与Hide方法：显示、隐藏Agent动画人物。参数Fast表示动画人物显示、隐藏的速度。Fast为0表示Agent飞入、飞出，Fast为1表示Agent直接出现、消失，没有动画过程。---- Peedy.Show(0);---- Peedy.Hide(1);---- ③StopAll、Stop方法：停止所有动作。---- Peedy.StopAll('');---- Peedy.Stop(Request);---- ④Connected属性：Agent是否与Microsoft Agent服务器连接。---- MyAgent.Connected := True;---- ⑤Get_Height、Get_Width、Set_Height、Set_Width方法：获得、设置Agent动画人物的高度、宽度。AgentHight := Peedy.Get_Height;AgentWidth := Peedy.Get_Width;Peedy.Set_Height( round(AgentHeight / 2 ));Peedy.Set_Width( round( AgentWidth / 2 ));---- ⑥MoveTo方法：参数x，y表示Agent动画人物移动到的坐标，参数Speed表示移动的速度。---- Peedy.MoveTo( (Screen.Width-Peedy.Get_Width) Div 2, (Screen.Height-Peedy.Get_Height) Div 2, 2 );---- ⑦Interrupt方法：中断指定角色的动画。在几十种动画动作中，有一类后缀名为“ing” 的动作比较特殊，如“processing”、“searching”、“reading”、“writing”，一旦执行就必须通过调用另外一个动画人物的Interrupt方法才能中断 。角色不能中断自身的动作，否则会导致异常。Request1 := Robby.Play('reading');Peedy.Interrupt(Request1);---- ⑧Wait方法：在多个不同动画人物之间协调动画动作，如等待sRobby的当前动作执行完毕后，Peedy做另外一个动作。Request1 := Robby.Play('read');Peedy.Wait(Request1);Peedy.Play('search');---- ⑨Play方法：执行指定的动画动作，参数Animation为一常量，表示动画类型。Agent提供了几十种预定义动作，开发软件时只需直接调用这些常量即可。下面简要介绍其中常用的一些常量仅供编程参考。---- 动作类型 中文含意 动作类型 中文含意 动作类型 中文含意Acknowledge 承认 LookDown 向下看 Sad 悲伤Alert 警告 LookDownBlink 向下看眨眼 Search 寻找Announce 声明 LookUp 向上看 StartListening 开始聆听Blink 眨眼 LookUpBlink 向下看眨眼 StopListening 停止聆听Confused 迷惑 LookLeft 向左看 Suggest 建议Congratulate 祝贺 LookLeftBlink 向左看眨眼 Surprised 吃惊Decline 拒绝 LookRight 向右看 Think 思考DontRecognize 不承认 LookRightBlink 向右看眨眼 Wave 挥动Explain 解释 MoveDown 向下移动 Write 书写GestureDown 向下姿势 MoveUp 向上移动 Processing 计算……GestureUp 向上姿势 MoveRight 向右移动 Reading 阅读……GestureLeft 向左姿势 MoveLeft 向左移动 Searching 寻找……GestureRight 向右姿势 Pleased 高兴 Writing 书写……GetAttention 获得注意 Read 阅读 Greet 问候 RestPose 恢复初始状态Request := peedy.Play('search');---- ⑩Speak方法：Agent通过调用语音合成引擎，支持英语的语音合成输出功能，只需输入英文字符串，Agent就能通过声卡、音箱“说话”。Agent的当前版本尚不具备支持中文语音合成功能，所以只能以.wav文件的形式播放中文。使用时可以将想要说的中文句子预先录好，以.wav形式存储，在程序中调用即可。参数Text表示文字气球中显示的文字，参数url表示.wav文件的路径。---- Peedy.speak('嗨，朋友们，你们好，现在由我为您提供帮助！','C:\新建文件夹\Help.wav');---- Peedy.Speak( 'Do you like my help? If so, Please send me an email! Thank you!', '' );---- ⑾Commands.Add方法：在Button1Click事件中为Agent添加自定义语音识别命令，参数const Name表示语音命令的标识，参数Caption表示该命令在输入命令窗口中的显示标题，参数Voice表示该命令对应的语句。当用户通过麦克风向动画人物发出语音命令时，触发Agent的Command事件，因此我们可以另外编写一个过程完成语音识别功能。procedure TForm1.Button1Click(Sender: TObject);begin Peedy.Commands.Add('Delphi','Run Delphi','Delphi',True,True); Peedy.Commands.Add('Visual Basic',' Run VB','VB',True,True); Peedy.Show(0); Peedy.Speak('What can I do for you, sir?','');end;---- ⑷、按F9运行程序。以上程序在Delphi3.0/4.0、Windows95/98/NT简体中文版环境下调试通过。
To xzhifei(飞)： 关于Office助手，俺有疑问：“Office助手沿用传统的不透明矩形窗口” 俺的Word2000中的Office助手好象不是矩形，因为鼠标右键只要不点击助手图象，就会弹出在其下层的窗口的菜单。 还有，俺以为楼主问的是怎样制作一个自己的应用程序助手，而不是如何调用已经存在的。关于透明和半透明，俺想补充一点：利用楼上的高招，可以实现，不过有一些不足，那就是当透明窗后面比邻的窗口隐藏时，透明窗的画布仍然保留着原来透明的样子，而这是它后面比邻的窗口显然已经变了。俺也借此机会请教：当后面的窗口发生变化时，如何能让透明窗自动更新？半透明窗口也有同样的问题。关注和学习中...
透明窗体，下列代码经过调试，效果很好。uses里加上ExtCtrls procedure tform1.setformtransparent; var I: Integer; FullRgn, ClientRgn, ControlRgn: THandle; Margin, MarginX, MarginY, X, Y: Integer; W,H,S :Integer; bX,bY :Integer; c :TColor; begin Margin := (Width - ClientWidth) div 2; FullRgn := CreateRectRgn(0, 0, Width, Height); MarginX := Margin; MarginY := Height - ClientHeight - Margin; ClientRgn := CreateRectRgn(MarginX, MarginY, MarginX + ClientWidth, MarginY + ClientHeight); CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF); DeleteObject(ClientRgn); for I:=0 to ControlCount-1 do begin X := MarginX + Controls[I].Left; Y := MarginY + Controls[I].Top; W:=Controls[I].Width; H:=Controls[I].Height; {} if controls[i] is timage then begin with controls[i] as tImage do begin c:=Picture.Bitmap.Canvas.Pixels[0,0]; for bX:=0 to Picture.Bitmap.Width-1 do begin for bY:=0 to Picture.Bitmap.Height-1 do begin if Picture.Bitmap.Canvas.Pixels[bX,bY]<>c then begin ControlRgn := CreateRectRgn(X+bX, Y+bY, X + bX+1, Y + bY+1); CombineRgn(FullRgn, FullRgn, ControlRgn, RGN_OR); DeleteObject(ControlRgn); end; end; end; end; end else {} if controls[i] is tShape then begin if W < H then S := W else S := H; if (Controls[i] as tshape).Shape in [stSquare, stRoundSquare, stCircle] then begin Inc(X, (W - S) div 2); Inc(Y, (H - S) div 2); W := S; H := S; end; Inc(W); Inc(H); Inc(S); case (controls[i] as tshape).Shape of stRectangle, stSquare: ControlRgn := CreateRectRgn(X, Y, X + W, Y + H); stRoundRect, stRoundSquare: ControlRgn := CreateRoundRectRgn(X, Y, X + W, Y + H, S div 4, S div 4); stCircle, stEllipse: ControlRgn:=CreateEllipticRgn(X, Y, X + W, Y + H); else ControlRgn := CreateRectRgn(X, Y, X + W, Y + H); end; CombineRgn(FullRgn, FullRgn, ControlRgn, RGN_OR); DeleteObject(ControlRgn); end else {} begin ControlRgn := CreateRectRgn(X, Y, X + W, Y + H); CombineRgn(FullRgn, FullRgn, ControlRgn, RGN_OR); DeleteObject(ControlRgn); end; end; SetWindowRgn(Handle, FullRgn, True); DeleteObject(FullRgn); end; procedure TForm1.FormResize(Sender: TObject); begin setformtransparent; end;
---- 首先，我们先从透明窗口说起，其实透明窗口就是可以透过窗口看到它背景。所以，我们可以将窗口后面的背景图象，显示在窗口前面，就可实现透明窗口的效果了。至于半透明的效果，是在透明的基础上，加上一层滤镜，使看到的背景模糊一点而已。所以，在拿到背景图象后，先在该图象加上一层滤镜（把图象弄模糊），然后再显示在窗口上，就能达到半透明的效果。
---- 我们可归纳出实现半透明窗口的步骤：在窗口显示前其获取背景图 → 对背景图象进行滤镜效果处理 → 将处理过的背景图象显示在窗口前面。 ---- （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;interfaceuses
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.---- 程序的运行效果如图（一）所示。
三、 结束语
---- 需要说明的是：由于受到以上滤镜算法的速度影响，所以窗口显示时有所延迟，在窗口频繁显示和关闭时不是很流畅
在FormCreate中，添加代码：
Brush.Style:=bsClear;
即可，注意，不是Canvas.Brush.Style！
procedure TForm1.FormCreate(Sender: TObject);
var p:longint;
begin
p:=GetWindowLong(handle,GWL_STYLE);//获取窗体属性
SetWindowLong(handle,GWL_EXSTYLE,p+WS_EX_TRANSPARENT);//设置新属性 form1.Refresh;
end;
***************************
To make a form transparent you should put these 2 lines in form's creation procedure:procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Brush.Style:=bsClear;
Form1.BorderStyle:=bsNone;
end;If you use only that you will notice that the form is transparent but if you put something
over it, it will not clear its own background and traces of that object will be left on the
form. To solve that you need to make sure that the transparent form's Paint procedure (WM_PAINT)
will be called last. To do that you need to override the TWinControl (TForm's ancestor)
CreateParams procedure and set the Form's extended style (ExStyle) to WS_EX_TRANSPARENT.Here's the full code for making a form transparent:type
TForm1 = class(TForm)
procedure CreateParams(var Params:TCreateParams); override;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.CreateParams(var Params:TCreateParams);
Begin
inherited CreateParams(Params);
Params.ExStyle:=WS_EX_TRANSPARENT;
End;procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Brush.Style:=bsClear;
Form1.BorderStyle:=bsNone;
end;
解放军合肥炮兵学院张建军中保财险安徽省铜陵市分公司韩莹---- Microsoft Agent是微软公司于1997年9月发布的一项代理软件开发技术，而后被集成到Internet Explorer 4.0 Plus及更高版本中，目前版本为2.0，支持简体中文。作为一种软件代理工具，Agent以其强大的交互功能、鲜明的人性特点、优美的操作界面和简便统一的编程方法，对由菜单、按钮、提示框等组成的传统人机交互方式产生了很大影响，在多媒体创作、Web应用、教育软件、软件帮助系统和辅助工具制作等方面，具有广阔的应用前景。 一、 Microsoft Agent技术简介---- Agent一词的中文意思是“代理”，故名思意，这类代理软件的主要作用是提供一种易于理解和使用的操作界面，接受用户的指令、代替用户完成某些复杂繁琐的工作、或为用户提供帮助。科学研究表明：从人机工程的角度考虑，赋予电脑或程序更多人性化色彩，如支持语音合成输出信息、语音识别输入指令、智能提示、动画等，能够充分提高人机交互的有效性和易用性。---- 我们知道，在Office 97帮助系统中有一种叫作Office助手的代理软件，其中幽默风趣的动画人物，如“大眼夹”，能够根据用户的操作步骤“智能化”地提出一些建议或帮助信息。与Office助手相比，Agent功能更加丰富强大，表现在： Office助手沿用传统的不透明矩形窗口，窗口后面的背景被完全挡住；Agent动画人物本身是一个“AlwaysOnTop”窗口，只有人物身体部分挡住背景，其余部分透明。Office助手只允许Office 97的各个组件调用，Agent动画人物可由任何Windows程序调用； Agent支持文字气球和输入提示条，在输出语音的同时把文字输出至一个卡通式文字气球中。如果电脑系统中安装有Agent语音识别引擎，当用户按住输入键，如Scroll Lock键，在Agent人物下方出现一个输入命令窗口，表示它正在“聆听”用户的语音命令。Agent提供Genie、Merlin、Bobby和Peedy等动画人物，不仅具有优美诙谐的动作，而且可以通过声卡、麦克风与用户交谈。二、 Microsoft Agent安装方法---- Agent是一种ActiveX控件，其服务器程序（C:\WINDOWS\MSAGENT\Agentsvr.exe）运行在Win95/98/NT操作平台上，为其它调用Agent的客户程序提供服务。客户程序可以是利用VB、C++、Delphi、VFP、PB等开发的应用软件，也可以是HTML文件中的Visual Script、Java Script脚本语言代码。安装Agent核心组件Msagent.exe。安装Lernout & Hauspie TruVoice Text-to-Speech Engine（完成从文字合成语音的工作，目前版本只支持英语）Cgram.exe。安装Microsoft Command and Control Speech Engine（提供语音识别功能，目前版本只支持英语）Actcnc.exe。 Agent动画人物人物数据文件。Agent支持单结构角色文件（.acs，角色数据与动画数据存于同一个文件），也支持分离结构角色文件（.acf，角色数据存于.acf中，动画数据存于.aca中）。基于本地硬盘和网络的应用程序可采用.acs文件，基于Web页面的HTML文件在浏览器中访问时会自动调用，习惯上多使用.acs文件。---- 上述文件可从 http://www.microsoft.com//workshop/imedia/agent/default.asp下载。三、 Microsoft Agent编程要点---- 1、 在Delphi中添加Agent控件---- 在Delphi IDE中选择菜单Component，Import ActiveX Control——在Import ActiveX下的列表框中选择Microsoft Agent Control 2.0（Version 2.0），点击按钮Install——在Install对话框中点击按钮OK——在Confirm对话框中点击按钮Yes——在对话框中点击按钮OK。至此，Agent控件被添加到Delphi组件板ActiveX页上。---- 2、 在Delphi中调用Agent控件---- ⑴、在Delphi IDE 中新建Project1（包含Form1），在Form1上放置Agent1（Name属性为MyAgent）、Button1。 ---- ⑵、定义变量。Var Peedy: IagentCtlCharacterEx; Request1,Request2: IagentCtlRequest;---- ⑶Agent主要属性、方法、事件。 ---- ①Characters属性与Load、Unload方法：初始化Agent，加载动画数据，卸载动画人物---- Request1 := MyAgent.Characters.Load( 'Peedy', 'C:\Windows\System\Peedy.acs' );---- Peedy := MyAgent.Characters.Character( 'Peedy' );---- MyAgent.Characters.Unload('Peedy');---- ②Show与Hide方法：显示、隐藏Agent动画人物。参数Fast表示动画人物显示、隐藏的速度。Fast为0表示Agent飞入、飞出，Fast为1表示Agent直接出现、消失，没有动画过程。---- Peedy.Show(0);---- Peedy.Hide(1);---- ③StopAll、Stop方法：停止所有动作。---- Peedy.StopAll('');---- Peedy.Stop(Request);---- ④Connected属性：Agent是否与Microsoft Agent服务器连接。---- MyAgent.Connected := True;---- ⑤Get_Height、Get_Width、Set_Height、Set_Width方法：获得、设置Agent动画人物的高度、宽度。AgentHight := Peedy.Get_Height;AgentWidth := Peedy.Get_Width;Peedy.Set_Height( round(AgentHeight / 2 ));Peedy.Set_Width( round( AgentWidth / 2 ));---- ⑥MoveTo方法：参数x，y表示Agent动画人物移动到的坐标，参数Speed表示移动的速度。---- Peedy.MoveTo( (Screen.Width-Peedy.Get_Width) Div 2, (Screen.Height-Peedy.Get_Height) Div 2, 2 );---- ⑦Interrupt方法：中断指定角色的动画。在几十种动画动作中，有一类后缀名为“ing” 的动作比较特殊，如“processing”、“searching”、“reading”、“writing”，一旦执行就必须通过调用另外一个动画人物的Interrupt方法才能中断 。角色不能中断自身的动作，否则会导致异常。Request1 := Robby.Play('reading');Peedy.Interrupt(Request1);---- ⑧Wait方法：在多个不同动画人物之间协调动画动作，如等待sRobby的当前动作执行完毕后，Peedy做另外一个动作。Request1 := Robby.Play('read');Peedy.Wait(Request1);Peedy.Play('search');---- ⑨Play方法：执行指定的动画动作，参数Animation为一常量，表示动画类型。Agent提供了几十种预定义动作，开发软件时只需直接调用这些常量即可。下面简要介绍其中常用的一些常量仅供编程参考。---- 动作类型 中文含意 动作类型 中文含意 动作类型 中文含意Acknowledge 承认 LookDown 向下看 Sad 悲伤Alert 警告 LookDownBlink 向下看眨眼 Search 寻找Announce 声明 LookUp 向上看 StartListening 开始聆听Blink 眨眼 LookUpBlink 向下看眨眼 StopListening 停止聆听Confused 迷惑 LookLeft 向左看 Suggest 建议Congratulate 祝贺 LookLeftBlink 向左看眨眼 Surprised 吃惊Decline 拒绝 LookRight 向右看 Think 思考DontRecognize 不承认 LookRightBlink 向右看眨眼 Wave 挥动Explain 解释 MoveDown 向下移动 Write 书写GestureDown 向下姿势 MoveUp 向上移动 Processing 计算……GestureUp 向上姿势 MoveRight 向右移动 Reading 阅读……GestureLeft 向左姿势 MoveLeft 向左移动 Searching 寻找……GestureRight 向右姿势 Pleased 高兴 Writing 书写……GetAttention 获得注意 Read 阅读 Greet 问候 RestPose 恢复初始状态Request := peedy.Play('search');---- ⑩Speak方法：Agent通过调用语音合成引擎，支持英语的语音合成输出功能，只需输入英文字符串，Agent就能通过声卡、音箱“说话”。Agent的当前版本尚不具备支持中文语音合成功能，所以只能以.wav文件的形式播放中文。使用时可以将想要说的中文句子预先录好，以.wav形式存储，在程序中调用即可。参数Text表示文字气球中显示的文字，参数url表示.wav文件的路径。---- Peedy.speak('嗨，朋友们，你们好，现在由我为您提供帮助！','C:\新建文件夹\Help.wav');---- Peedy.Speak( 'Do you like my help? If so, Please send me an email! Thank you!', '' );---- ⑾Commands.Add方法：在Button1Click事件中为Agent添加自定义语音识别命令，参数const Name表示语音命令的标识，参数Caption表示该命令在输入命令窗口中的显示标题，参数Voice表示该命令对应的语句。当用户通过麦克风向动画人物发出语音命令时，触发Agent的Command事件，因此我们可以另外编写一个过程完成语音识别功能。procedure TForm1.Button1Click(Sender: TObject);begin Peedy.Commands.Add('Delphi','Run Delphi','Delphi',True,True); Peedy.Commands.Add('Visual Basic',' Run VB','VB',True,True); Peedy.Show(0); Peedy.Speak('What can I do for you, sir?','');end;---- ⑷、按F9运行程序。以上程序在Delphi3.0/4.0、Windows95/98/NT简体中文版环境下调试通过。
关于Office助手，俺有疑问：“Office助手沿用传统的不透明矩形窗口”
俺的Word2000中的Office助手好象不是矩形，因为鼠标右键只要不点击助手图象，就会弹出在其下层的窗口的菜单。
还有，俺以为楼主问的是怎样制作一个自己的应用程序助手，而不是如何调用已经存在的。关于透明和半透明，俺想补充一点：利用楼上的高招，可以实现，不过有一些不足，那就是当透明窗后面比邻的窗口隐藏时，透明窗的画布仍然保留着原来透明的样子，而这是它后面比邻的窗口显然已经变了。俺也借此机会请教：当后面的窗口发生变化时，如何能让透明窗自动更新？半透明窗口也有同样的问题。关注和学习中...
俺再仔细研究和学习，之后再来发表意见。
感谢楼主，感谢“xzhifei(飞)”。
procedure tform1.setformtransparent;
var
I: Integer;
FullRgn,
ClientRgn,
ControlRgn: THandle;
Margin,
MarginX,
MarginY,
X,
Y: Integer;
W,H,S :Integer;
bX,bY :Integer;
c :TColor;
begin
Margin := (Width - ClientWidth) div 2;
FullRgn := CreateRectRgn(0, 0, Width, Height);
MarginX := Margin;
MarginY := Height - ClientHeight - Margin;
ClientRgn := CreateRectRgn(MarginX, MarginY, MarginX + ClientWidth, MarginY + ClientHeight);
CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF);
DeleteObject(ClientRgn);
for I:=0 to ControlCount-1 do
begin
X := MarginX + Controls[I].Left;
Y := MarginY + Controls[I].Top;
W:=Controls[I].Width;
H:=Controls[I].Height;
{}
if controls[i] is timage then begin
with controls[i] as tImage do begin
c:=Picture.Bitmap.Canvas.Pixels[0,0];
for bX:=0 to Picture.Bitmap.Width-1 do begin
for bY:=0 to Picture.Bitmap.Height-1 do begin
if Picture.Bitmap.Canvas.Pixels[bX,bY]<>c then begin
ControlRgn := CreateRectRgn(X+bX, Y+bY, X + bX+1, Y + bY+1);
CombineRgn(FullRgn, FullRgn, ControlRgn, RGN_OR);
DeleteObject(ControlRgn);
end;
end;
end;
end;
end else
{}
if controls[i] is tShape then begin
if W < H then S := W else S := H;
if (Controls[i] as tshape).Shape in [stSquare, stRoundSquare, stCircle] then
begin
Inc(X, (W - S) div 2);
Inc(Y, (H - S) div 2);
W := S;
H := S;
end;
Inc(W); Inc(H); Inc(S);
case (controls[i] as tshape).Shape of
stRectangle, stSquare:
ControlRgn := CreateRectRgn(X, Y, X + W, Y + H);
stRoundRect, stRoundSquare:
ControlRgn := CreateRoundRectRgn(X, Y, X + W, Y + H, S div 4, S div 4);
stCircle, stEllipse:
ControlRgn:=CreateEllipticRgn(X, Y, X + W, Y + H);
else
ControlRgn := CreateRectRgn(X, Y, X + W, Y + H);
end;
CombineRgn(FullRgn, FullRgn, ControlRgn, RGN_OR);
DeleteObject(ControlRgn);
end else
{}
begin
ControlRgn := CreateRectRgn(X, Y, X + W, Y + H);
CombineRgn(FullRgn, FullRgn, ControlRgn, RGN_OR);
DeleteObject(ControlRgn);
end;
end;
SetWindowRgn(Handle, FullRgn, True);
DeleteObject(FullRgn);
end; procedure TForm1.FormResize(Sender: TObject);
begin
setformtransparent;
end;