Текущий архив: 2007.07.15;
Скачать: CL | DM;
Вниз
Почему не работает прозрачность? Найти похожие ветки
← →
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 вся ветка
Текущий архив: 2007.07.15;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.02 c
