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 xe6调用android标准功能

Delphi xe5 android 使用system.zip单元释放资源文件

Delphi winapi: settimer、killtimer - 创建与移除高性能定时器

Delphi 时间年月日，星期

Delphi xe5获取android imei id

Delphi 过滤字符串首位特殊符号

Delphi 批量日期格式化

Delphi 2009 泛型容器单元(generics.collections)[4]: tdictionary<t>

Delphi access数据库 主键

Delphi中通过tclientsocket获取公网(wan)ip地址

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

转载请注明出处：木庄网络博客 » delphi 使窗口透明，并透过透明的窗口操作下面的窗口