让鼠标穿透窗体 

1 var
2   ws: DWORD;
3 begin
4   ws := GetWindowLong(Form1.Handle, GWL_EXSTYLE);
5   ws := ws or WS_EX_TRANSPARENT;
6   ws := ws or $80000;
7   SetWindowLong(Form1.Handle, GWL_EXSTYLE, ws);
8 end;

　　

posted on 2011-07-21 22:54  solokey  阅读(207)  评论(0)  编辑  收藏  举报