半透明的窗体 (2001年2月7日).txt

来自「delphi 编程技巧」· 文本 代码 · 共 28 行

半透明的窗体 (2001年2月7日) 

网友更新  分类:系统   作者:闫磊  推荐:闫磊   阅读次数:853  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
function SetLayeredWindowAttributes(hwnd:HWND; crKey:Longint; bAlpha:byte; dwFlags:longint ):longint; stdcall; external user32;//函数声明


var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var l:longint;
begin
l:=getWindowLong(Handle, GWL_EXSTYLE);
l := l Or $80000;
SetWindowLong (handle, GWL_EXSTYLE, l);
SetLayeredWindowAttributes(handle, 0, 180, 2);
end;
只在windows2000下运行