// function SetLayeredWindowAttributes(hwnd:HWND; crKey:Longint; bAlpha:byte; dwFlags:longint ):longint; stdcall; external user32;//函数声明
// 引用Windows单元后可以直接使用
procedure TForm2.Button8Click(Sender: TObject);
varend;
原文地址:http://blog.csdn.net/gjtao1130/article/details/25964515