Главная страница
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.019 c
8-78537
Groove
2002-06-27 01:38
2002.10.24
Звук отстаёт от видео =((


3-78282
VikOss
2002-10-03 10:33
2002.10.24
Report


14-78609
DiamondShark
2002-10-03 10:50
2002.10.24
Охренели


3-78228
NewI
2002-10-02 04:55
2002.10.24
Делаю SQL запрос. Данные отображаются в DBGrid. Вопрос в


3-78293
Lola
2002-10-01 15:21
2002.10.24
Поиск в memo-поле