Прозрачное окно, созданное с помощью CreateWindow

← →
Vulix © (2006-11-29 08:50) [0]

Привет всем.

Есть класс, который создает окно и пытается сделать его прозрачным :

function SetLayeredWindowAttributes(hWindow : HWND; crKey : DWORD; bAlpha : Byte; dwFlags : DWORD) : BOOL; stdcall; external user32 name "SetLayeredWindowAttributes";

...
constructor TTestButton.Create(x,y,w,h,dx,dy:integer;sHint:string;hParent:THandle);
//dx и dy нужные мне параметры, в данном случае неважны
...

initialization
ZeroMemory(@WndClass,SizeOf(TWndClassEx));
WndClass.hInstance:=HInstance;
With WndClass do
Begin
cbSize:=SizeOf(TWndClassEx);
lpfnWndProc:=@TestWndProc;
lpszClassName:="TestButtonWindow";
hCursor:=LoadCursor(0, IDC_ARROW);
End;
RegisterClassEx(WndClass);

в методе Create я делаю
...
Handle:=CreateWindow("TestButtonWindow",nil,WS_CHILD,x,y,w,h,Parent,0,HInstance, nil);
//где HInstance принадлежит другому (родительскому) окну
SetWindowLong(Handle,GWL_USERDATA,Integer(Self));
//ниже я пытаюсь сделать созданное окно прозачным
SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED);
SetLayeredWindowAttributes(Handle, 0, Byte(100), 2);

В процедуре TestWndProc я перехватываю WM_PAINT и закрашиваю окно черным цветом. ПРи запуске, окно все черное, прозрачности не наблюдается.
Окно показываю из другого места методом ShowWindow с параметром SW_SHOW.
Подскажите, где косяк?

← →
Vulix © (2006-11-29 08:51) [1]

//где HInstance принадлежит другому (родительскому) окну
попровка, не HInstance, а Parent

← →
Vulix © (2006-11-29 09:28) [2]

Странно, а почему
Handle:=CreateWindowEx(WS_EX_LAYERED,"VxButtonWindow",nil,WS_CHILD,x,y,w,h,Paren t,0,HInstance,nil);
не работает (возвращает 0), а
Handle:=CreateWindowEx(0,"VxButtonWindow",nil,WS_CHILD,x,y,w,h,Parent,0,HInstanc e,nil);
работает...

Спасибо всем, разобрался...
"Note that WS_EX_LAYERED cannot be used for child windows."
Вот облом

Прозрачное окно, созданное с помощью CreateWindow Найти похожие ветки