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

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

Почему не работает прозрачность? [D6, WinXP]

Vemer ©   (2007-02-08 02:12:00) 

Есть следующий код.
Окно становиться полностью невидимым почему-то ...

BEGIN
hInst := GetModuleHandle(nil);
With WinClass do
begin
 Style := CS_PARENTDC; //стиль класса главного окна
 hIcon := LoadIcon(hInstance, IDI_APPLICATION); //иконка программы
 lpfnWndProc := @WindowProc; //назначение обработчика сообщений
 hInstance := hInst;
 hbrBackground := 2;//COLOR_BTNFACE + 1; //цвет окна
 lpszClassName := 'Clock Class'; //класс окна
 hCursor := LoadCursor(0, IDC_ARROW); //активный курсор
end;

InitCommonControls;
RegisterClass(WinClass); //регистрация класса в сис-ме
{Создание главного окна программы}

Handle := CreateWindowEx(WS_EX_TOPMOST
                         or WS_EX_LAYERED,
                         'Sample Class',
                         'Clock',
                          WS_OVERLAPPED or
                          WS_SYSMENU or
                          WS_VISIBLE or WS_POPUP,
                          0, 0, 210, 108, 0, 0, hInst, nil);

SetLayeredWindowAttributes(Handle,0,128, LWA_ALPHA);

---

Vemer   (2007-02-08 03:47:00) [1]

Спасибо Chat.mail.Ru.
Проблема решена.

---

Vemer   (2007-02-08 02:38:00) [2]

Название класса сделал везде одинаковым - не помогло.

---

Наверх