让鼠标穿透窗体

涛 · 发表于 2010-1-16 11:32:00

转自：http://www.solokey.cn/
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;

书痕 · 发表于 2010-1-26 14:48:50

似乎与平台有关？在Linux下行不行？需要引用什么单元？

兔子 · 发表于 2010-8-15 13:54:13

介个==什么意思啊

delphicn · 发表于 2010-9-11 09:11:31

这个就是鼠标到了窗体的下面去了。

		自动登录	找回密码
密码			立即注册（注册审核可向QQ群索取）