关于窗口透明的有关问题。

关于窗口透明的问题。。
open事件：
SetWindowulong(Handle(This), GWL_EXSTYLE, WS_EX_LAYERED)
SetLayeredWindowAttributes(Handle(This), 0, Char(255), LWA_COLORKEY)


全局：
Function ulong SetLayeredWindowAttributes(ulong hWnd , long crKey , Character bAlpha ,long dwFlags) library"user32.dll" alias for "SetLayeredWindowAttributes;Ansi" 
FUNCTION ulong SetWindowulong(ulong hwnd,ulong nIndex,ulong dwNewLong) LIBRARY "user32.dll" ALIAS FOR "SetWindowLongA" 

局部：
ULONG WS_EX_LAYERED = 524288
LONG LWA_COLORKEY = 1
LONG LWA_ALPHA = 2
ULONG GWL_EXSTYLE = -20

把背景弄成“黑色”可以实现透明的效果
但是窗口默认的不是黑色是“button face”我想知道需要改写什么达到透明的效果。。
------解决方案--------------------
SetLayeredWindowAttributes的第二个参数是‘透明化颜色’，你改成你需要透明的颜色就可以了，窗体中可以改成这样

SetWindowulong(Handle(This), GWL_EXSTYLE, WS_EX_LAYERED)
SetLayeredWindowAttributes(Handle(This), this.BackColor, Char(255), LWA_COLORKEY)