Скачать: CL | DM;

Изменение прозрачности формы в W 2000 и W XP   Найти похожие ветки 

← →
Yury   (2004-12-21 11:25) [0]

Не подскажите, как сделать так, что изменяласть прозрачность окна под Windows 2000 и Windows XP, как в некоторых приложениях?

---

← →
Denis_AC   (2004-12-21 11:55) [1]

А сойство AlphaBlend не подходит?

---

← →
Steepe Wolf ©   (2004-12-21 12:42) [2]

function SetLayeredWindowAttributes(hwnd: longint; crey: byte;
 bAlpha: byte; dwFlags: longint): longint; stdcall;     external "USER32.DLL";

procedure TForm1.Btn1Click(Sender: TObject);
var
old: longint;
begin
old:=GetWindowLongA(Handle,GWL_EXSTYLE);
SetWindowLongA(Handle,GWL_EXSTYLE,old or $80000);
SetLayeredWindowAttributes(handle, 0, NN, $2);
end;

NN - прозрачность 0-255

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.031 c