Текущий архив: 2003.12.16;
Скачать: CL | DM;

Вниз

Alpha Blend   Найти похожие ветки 

← →
Demetrius2003 ©   (2003-10-19 13:00) [0]

Как поменять розрачность чужого окна???
И вообще как сделать полупрозрачное окно используя не используя TForm???

---

← →
Rouse_ ©   (2003-10-22 11:00) [1]

Вот тебе кусок кода из моего компонента

var
SetLayeredWindowAttributes: function(Hwnd: THandle; crKey: COLORREF;
bAlpha: Byte; dwFlags: DWORD): Boolean; stdcall;

procedure TFWChatInTips.SetAlphaBlendTransparent;
const
GWL_EXSTYLE = -20;
WS_EX_LAYERED = $00080000;
LWA_ALPHA = $00000002;
var
FLibHandle: THandle;
begin
FIsTransparent := False;
SetWindowLong(FHint.Handle, GWL_EXSTYLE,
GetWindowLong(FHint.Handle, GWL_EXSTYLE) or WS_EX_LAYERED);
FLibHandle := LoadLibrary("USER32.DLL");
if FLibHandle <= 32 then Exit;
@SetLayeredWindowAttributes:=
GetProcAddress(FLibHandle,"SetLayeredWindowAttributes");
if not Assigned(SetLayeredWindowAttributes) then
begin
FreeLibrary(FLibHandle);
Exit;
end;
if not FTransparent then
SetLayeredWindowAttributes(FHint.Handle, 0, 255, LWA_ALPHA)
else
SetLayeredWindowAttributes(FHint.Handle, 0, FAlphaBlend, LWA_ALPHA);
FIsTransparent := FTransparent;
FreeLibrary(FLibHandle);
end;

Короче разберешся
Вместо FHint.Handle - подставишь хэндл нужной тебе формы

Желаю успехов

---

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

Текущий архив: 2003.12.16;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.021 c