delphi 使窗口透明,并透过透明的窗口操作下面的窗口


本文整理自网络,侵删。

 SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or 
WS_EX_TRANSPARENT or //忽略一切消息(WM_PAINT除外)
WS_EX_LAYERED); //层风格,有他才能支持半透明
SetLayeredWindowAttributes(Handle, Color, 100, LWA_ALPHA or LWA_COLORKEY);

****************************************************************************************************************

procedure CreateWnd;override;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.CreateWnd;
begin
inherited CreateWnd;
SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or
WS_EX_LTRREADING or
WS_EX_TRANSPARENT or
WS_EX_TOPMOST or
WS_EX_TOOLWINDOW or
WS_EX_LAYERED);
SetLayeredWindowAttributes(Handle, Color, 150, LWA_ALPHA or LWA_COLORKEY);
end;
end.

相关阅读 >>

Delphi 内进行音量控制及静音

Delphi 在内存中直接运行exe类型的资源文件

Delphi实现的sunday字符串搜索算法

Delphi 跨平台打开网址链接

Delphi 存储文件到数据库

Delphi 计算文件与当前时间差(天小时分钟秒)

Delphi 实现卸载windows应用程序(类似360软件管家-卸载程序)

Delphi xe6、xe5、xe7在android创建快捷方式

Delphi中判断一个字符的位置在字符串开头或者末尾

Delphi下的纯pascal的十六进制转十进制

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...