Delphi激活窗口时哪个事件？

冥界3大法王

以下源码：
SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);    //窗口置顶


procedure TForm1.FormMouseLeave(Sender: TObject);
var
  l: longint;
begin
  l := getWindowLong(Handle, GWL_EXSTYLE);
  l := l or WS_EX_LAYERED;
  SetWindowLong(handle, GWL_EXSTYLE, l);
  SetLayeredWindowAttributes(handle, 0, 180, LWA_ALPHA);    //第二个参数是指定透明颜色  //第二个参数为0则使用第四个参数设置alpha值，从0到255
end;
求如何再还原原来的透明度呢？ 试了几次，皆未能成功，求赐教。

pzx521521

想简单
SetLayeredWindowAttributes(handle, 0, 255, LWA_ALPHA); SetLayeredWindowAttributes(handle, 0, 255, LWA_ALPHA);
完全还原:

[Delphi] 纯文本查看 复制代码

var
  l: longint;
begin
  l := getWindowLong(Handle, GWL_EXSTYLE);
  l := l and WS_EX_LAYERED;
  SetWindowLong(handle, GWL_EXSTYLE, l);
  SetLayeredWindowAttributes(handle, 0, 255, LWA_ALPHA); SetLayeredWindowAttributes(handle, 0, 255, LWA_ALPHA); 

已测试 ok
因为是windows 的函数  其实和delphi没什么关系, C++/C# 怎么调 就怎么调就好了