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

Вниз

Создание полупрозрачной формы   Найти похожие ветки 

← →
СлБ   (2003-05-28 08:02) [0]

Как сделать форму полупрозрачной (или любой степени прозрачности)?

---

← →
Мое имя   (2003-05-28 09:28) [1]

alphablend

---

← →
NAlexey   (2003-05-28 09:33) [2]


procedure TForm1.Button1Click(Sender: TObject);
procedure SetAlphaBlendTransparent(WHandle: HWnd; Value: Byte);
var
User32: Cardinal;
SetLayeredWindowAttributes: function (hwnd: LongInt; crKey: byte; bAlpha: byte; dwFlags: LongInt): LongInt; stdcall;
begin
User32 := LoadLibrary("USER32");
if User32 <> 0
then
try
SetLayeredWindowAttributes := GetProcAddress(User32, "SetLayeredWindowAttributes");
if @SetLayeredWindowAttributes <> nil
then
SetLayeredWindowAttributes(WHandle, 0, Value, LWA_ALPHA);
finally
FreeLibrary(User32);
end;
end;
var
I: integer;
begin
SetWindowLong(Handle, GWL_EXSTYLE,
GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED);
SetAlphaBlendTransparent(Handle, 200);
end;


---

← →
СлБ   (2003-05-29 11:29) [3]

Спасибо

---

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

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

Наверх

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