Почему не работает прозрачность?

← →
Vemer © (2007-02-08 02:12) [0]

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

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 02:38) [1]

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

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

Почему не работает прозрачность? Найти похожие ветки