| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Народ, подскажите хто-нить как изменять прозрачность таскбара или [D5, D6, Win2k, WinXP]

Kacnep ©   (2002-10-12 19:41:00) 

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

---

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

Попробуй так:
procedureTForm1.Button1Click(Sender: TObject);
var
aHandle: HWND;
i, aStyle: Integer;
begin
aHandle := FindWindow("Shell_TrayWnd", nil);
aStyle := GetWindowLong(aHandle, GWL_EXSTYLE);
if(aStyle andWS_EX_LAYERED) = 0 then
SetWindowLong(aHandle, GWL_EXSTYLE, aStyle orWS_EX_LAYERED);
fori := -51 to51 do
SetLayeredWindowAttributes(aHandle, 0, abs(i * 5), LWA_ALPHA);
end;

---

Наверх