Форум: "Основная";
Текущий архив: 2002.10.24;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c