Главная страница
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.02 c
3-78270
yaJohn
2002-10-02 13:15
2002.10.24
Оптимизация МИДАС.


1-78470
garyboy
2002-10-12 18:37
2002.10.24
Как нетопорно удалить элемент <b>динамического массива</b>


1-78525
Squ
2002-10-14 10:12
2002.10.24
Подскажите где найти простенький де-архиватор?


14-78590
Serzhik
2002-10-01 18:20
2002.10.24
отладка в Delphi


6-78560
Andre V.
2002-08-15 09:57
2002.10.24
Wake-On-LAN?