窗口背景透明,还有透明区域鼠标可以穿透!
解决方案 »
- 关于Image1动态调用*.jpg文件?
- 请问如何在DELPHI里检测系统是否安装了adobe reader
- Socket error #10040 message too long这个提示具体是什么意思啊,怎么解决啊?
- 请问如何动态修改其它正在运行程序的dll代码? 谢谢回复
- 关于搜索文件问题。大家帮我看看
- 高级字符串问题
- 请问键盘上的Enter键key里面是什么??比如VK_F1是F1键,是不是VK_ENTER呀???
- 如何用访问已经用EXCEL打开的DBF
- 在IMAGE中如何动态变换图片并实时刷新
- 给高份,哪儿可以得到五笔汉字库,急!!!
- 急需POS收银系统!!!
- 单机版的 还原精灵 它的密码 一般 放在 什么地方呀
然后
重载procedure CreateWnd; override;就可以实现鼠标穿透了
procedure TForm1.CreateWnd;
begin
inherited CreateWnd;
SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or
WS_EX_TRANSPARENT or
WS_EX_LAYERED);
end;
WS_EX_TRANSPARENT or
WS_EX_LAYERED);
TransparentColorValue:=25;
Color:=TransparentColorValue;
这个是最简单的,也是非常非常有效的