| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Vulix ©   (2006-11-29 08:50:00) 

Привет всем.

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

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 09:53:00) [1]

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

---

Vulix   (2006-11-29 09:28:00) [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);
работает...

---

Vulix   (2006-11-29 08:51:00) [3]

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

---

Наверх