关于Windows2000透明窗体的制作(重发)

页面导航:首页 > 软件编程 > Delphi > 关于Windows2000透明窗体的制作(重发)

关于Windows2000透明窗体的制作(重发)

来源: 作者: 时间:2016-02-05 11:47 【

哎,刚才洋洋傻傻写了200多字,竟然提交失败?!让人几近晕倒,只好重写了。嗯,现在开始..透明窗体不知注意到没有?看过的是不是觉得很cool?我是这样认为的,所以第一次在一个叫

哎,刚才洋洋傻傻写了200多字,竟然提交失败?!让人几近晕倒,只好重写了。嗯,现在开始..

透明窗体不知注意到没有?看过的是不是觉得很cool?我是这样认为的,所以第一次在一个叫SourceInsight的软件中看到后,就在到处找他是如何做的。后来发现是通过一种图形运算得到的,就是程序的界面和其底图进行一定的运算,如alpha运算,就可以得到透明的效果。但写起来好烦啊。昨天无意见到已很好用的API函数,专门做透明的,很好用,便写出来,大家看看.

先写个例子,Delphi的,这个目前最熟了。

procedure DoTrans();

var

    l: LongInt;

begin

    l := GetWindowLong(Handle, GWL_EXSTYLE);

    l := l or WS_EX_LAYERED;

    SetWindowLong(Handle, GWL_EXSTYLE, l);

    SetLayeredWindowAttributes(Handle, 0, 125, LWA_ALPHA);

end;

你可以先试试,应该很好用的,关键就是API函数SetLayeredWindowAttributes(),这个是Windows2000才有的一个API,所以也只能在2000下运行,Win2000的淡进淡出效果可能就是用的这个函数。

Delphi6已经封装了这个API,Delphi5的话,就要自己进行函数声明了,

function SetLayeredWindowAttributes(hwnd:HWND; crKey:Longint; bAlpha:byte; dwFlags:longint ):longint; stdcall; external ‘user32.dll;

现在从MSDN里把它的定义考出来,分析一下。

BOOL SetLayeredWindowAttributes(
  HWND ,           // handle to the layered window
  COLORREF ,      // specifies the color key
  BYTE ,         // value for the blend function
  DWORD         // action
);
第一个参数:hwnd是指向要操作的窗口的句柄,没什么要说的,基本API都需要的.
第二个参数:crKey是指定要透明的颜色的颜色值,这个参数和第四个参数在制定
为LWA_COLORKEY时才有用,在LWA_ALPHA参数下,一般用0;当指定要透明的颜色值时,
窗口中的制定颜色就会变得‘镂空’!
第三个参数: bAlpha是透明运算的一个参数,简单地说就是透明度,0最透明,就看不到了,
255不透明,和平常的效果一样了。
第四个参数:dwFlags由两个值LWA_COLORKEY和LWA_ALPHA,用于决定用何种方式进行透明处理。
一般用LWA_ALPHA值就可以了.
好了,就这么多了,MSDN里有详细的介绍。
codejie. 2001/08/31
Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <