Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.24;
Скачать: CL | DM;

Вниз

Народ, подскажите хто-нить как изменять прозрачность таскбара или   Найти похожие ветки 

 
Kacnep   (2002-10-12 19:41) [0]

Народ, подскажите хто-нить как изменять прозрачность таскбара или любого другого окна.


 
Kibitzer ©   (2002-10-15 12:47) [1]

Попробуй так:
procedure TForm1.Button1Click(Sender: TObject);
var
aHandle: HWND;
i, aStyle: Integer;
begin
aHandle := FindWindow("Shell_TrayWnd", nil);
aStyle := GetWindowLong(aHandle, GWL_EXSTYLE);
if (aStyle and WS_EX_LAYERED) = 0 then
SetWindowLong(aHandle, GWL_EXSTYLE, aStyle or WS_EX_LAYERED);
for i := -51 to 51 do
SetLayeredWindowAttributes(aHandle, 0, abs(i * 5), LWA_ALPHA);
end;



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

Текущий архив: 2002.10.24;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.032 c
1-78477
AlexHEY
2002-10-11 22:45
2002.10.24
Как перезагрузить программу?


4-78732
Patrick
2002-09-10 08:39
2002.10.24
Использование MAPISendMail


3-78269
Dr.Shark
2002-10-02 13:33
2002.10.24
как создать иерархичную базу данных


1-78453
psiho
2002-10-11 20:09
2002.10.24
help или *.plh


1-78317
lLoHh
2002-10-11 17:40
2002.10.24
Уменя такой глюк: Прога имеет несколько окон но только главная ..