实现“鼠标穿透窗体”功能

1、DELPHI实现：

var
ws: DWORD;
begin
ws := GetWindowLong(Form1.Handle, GWL_EXSTYLE);
ws := ws or WS_EX_TRANSPARENT;
ws := ws or $80000;
SetWindowLong(Form1.Handle, GWL_EXSTYLE, ws);
end;

2、在win2000下实现透明窗口

假设要透明的是一个对话框

1.在主文件的顶部#define _WIN32_WINNT 0x5000

否则，WS_EX_LAYERED未定义

2.在WM_INITDIALOG里：
设置风格为WS_EX_LAYERED

SetWindowLong(hWnd,GWL_EXSTYLE,GetWindowLong(hWnd,GWL_EXSTYLE)|WS_EX_LAYERED);

3.调用SetLayeredWindowAttributes函数
SetLayeredWindowAttributes(hWnd, 0, (255 * 70) / 100, LWA_ALPHA);