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