让鼠标穿透窗体

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;