Форум: "WinAPI";
Текущий архив: 2007.07.15;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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]

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

---

← →
Vemer ©   (2007-02-08 03:47) [2]

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

---

Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2007.07.15;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.05 c