让鼠标穿透窗体

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;

　　

【推广】 免费学中医，健康全家人
原文地址：https://www.cnblogs.com/solokey/p/2113347.html