Прозрачные окошки

← →
Алексей Петухов (2003-09-05 12:10) [0]

Здравствуйте, мастера.
Подскажите пожалуйста, как сделать формочку слегка прозрачной?

← →
y-soft © (2003-09-05 13:34) [1]

В Windows 2000 и выше можно так:
const WS_EX_LAYERED = $00080000; LWA_ALPHA = $00000002; CUR_ALPHA = 224; //Степень непрозрачности (0..255) procedure TMyForm.FormCreate(Sender: TObject); type TSetLayeredWindowAttributes = function (Hwnd: THandle; crKey: COLORREF; bAlpha: Byte; dwFlags: DWORD): Boolean; stdcall; var SLWA : TSetLayeredWindowAttributes; User32 : THandle; ExStyle : Longint; begin fUsers := TSafeObjList.Create(TUser); fDefaultUser := nil; fTryCnt := 3; //!!! fResult := False; User32 := GetModuleHandle("User32.dll"); if User32 > 0 then begin SLWA := GetProcAddres(User32,"SetLayeredWindowAttributes"); if assigned(SLWA) then begin ExStyle := GetWindowLong(Handle, GWL_EXSTYLE); SetWindowLong(Handle, GWL_EXSTYLE, ExStyle or WS_EX_LAYERED); SLWA(Handle, 0, CUR_ALPHA, LWA_ALPHA); WS_EX_LAYERED); end; end; end;

Если хотите большего - прочитайте про функции SetLayeredWindowAttributes и UpdateLayeredWindow

← →
y-soft © (2003-09-05 13:43) [2]

Sorry, как-то странно вставилось:))

const
WS_EX_LAYERED = $00080000;
LWA_ALPHA = $00000002;
CUR_ALPHA = 224; //Степень непрозрачности (0..255)

... procedure TMyForm.FormCreate(Sender: TObject); type TSetLayeredWindowAttributes = function (Hwnd: THandle; crKey: COLORREF; bAlpha: Byte; dwFlags: DWORD): Boolean; stdcall; var SLWA : TSetLayeredWindowAttributes; User32 : THandle; ExStyle : Longint; begin fUsers := TSafeObjList.Create(TUser); fDefaultUser := nil; fTryCnt := 3; //!!! fResult := False; User32 := GetModuleHandle("User32.dll"); if User32 > 0 then begin SLWA := GetProcAddres(User32,"SetLayeredWindowAttributes"); if assigned(SLWA) then begin ExStyle := GetWindowLong(Handle, GWL_EXSTYLE); SetWindowLong(Handle, GWL_EXSTYLE, ExStyle or WS_EX_LAYERED); SLWA(Handle, 0, CUR_ALPHA, LWA_ALPHA); end; end; end;

← →
cult_passwordForgotten (2003-09-05 18:18) [3]

если Дельфи версии 6 и выше - у формы есть свойство AlphaBlendValue, делающее ее прозрачной, по-иоему, 256 градаций существует.

Удалено модератором
Примечание: Offtopic

Для 9х - копирование экрана под формой, копирование самой формы и blend одного на другое. Также есть компонент TGlassy.

Прозрачные окошки Найти похожие ветки