如何生成半透明窗口？(100分)

小小菜虫 · 2002-01-12

如何才能生成WINDOW关闭系统时这种半透明的窗口？

卷起千堆雪tyn · 2002-01-12

在windows2000下： 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 end; end.

小小菜虫 · 2002-01-12

98下怎么做？

卷起千堆雪tyn · 2002-01-12

基本原理是:   在窗口显示前其获取背景图然后对背景图象进行滤镜效果处理再将处理过的背景图象 显示在窗口前面。有一种方法是:首先，做出一个透明窗体，然后在窗体上添加一个shape， 将其扩展至全屏幕，将shape的pen的mode属性设为pmmask,pen的style属性设为psclear, 最后改变brush的color属性即可。因为没有api支持，win9x下只能模拟，效果不太好， 就象金山词霸的取词窗口，背景改变而窗体上还是不变。但我们可以利用timer控件来解决 窗体的刷新率和时时更新的问题。不过听说“金山词霸的半透明窗口效果只能在带mmx指令集的处理器中才起作用”

小小菜虫 · 2002-01-12

虽然没有彻底解决，我还是要感谢您。谢谢您的答复！！！！！ 马上送分。

taozhiyu · 2002-01-12

unit FineForm; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);     procedure FormDblClick(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} //这个程序有点问题,当字体大过窗体的范围的时候就不能全部显示! procedure TForm1.FormCreate(Sender: TObject); var rgn:HRGN; begin  Form1.Color:=clRed;//color  BeginPath(Canvas.handle);   SetBkMode(Canvas.Handle,TRANSPARENT);   Canvas.Font.Name:='宋体';//font   Canvas.Font.Size:=100;//font size   Canvas.TextOut(12,12,'I Love You!');  Endpath(Canvas.Handle);  rgn:=PathtoRegion(Canvas.Handle);  SetWindowRgn(Handle,rgn,true); end; procedure TForm1.FormDblClick(Sender: TObject); begin  Close; end; end.

小小菜虫 · 2002-01-12

taozhiyu: 大哥您可能是误会了我的意思，我的意思是窗口是半透明色的：） 谢谢。

wlmmlw · 2002-01-12

半透明之后，是不是窗体上所有东东都是关透明的？？？ 如果是用Form.AlphaBlendValue不就可以了！！！

prisoner · 2002-03-05

laohe · 2002-04-29

Form.AlphaBlendValue 不能用，怎么用呢，

如何生成半透明窗口？(100分)

小小菜虫

Unregistered / Unconfirmed

卷起千堆雪tyn

Unregistered / Unconfirmed

小小菜虫

Unregistered / Unconfirmed

卷起千堆雪tyn

Unregistered / Unconfirmed

小小菜虫

Unregistered / Unconfirmed

taozhiyu

Unregistered / Unconfirmed

小小菜虫

Unregistered / Unconfirmed

wlmmlw

Unregistered / Unconfirmed

prisoner

Unregistered / Unconfirmed

laohe

Unregistered / Unconfirmed

Similar threads