Изменение прозрачности формы в W 2000 и W XP

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

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

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

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

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

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