| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Создание полупрозрачной формы [D5, D6, Win2k]

СлБ ©   (2003-05-28 08:02:00) 

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

---

СлБ   (2003-05-29 11:29:00) [1]

Спасибо

---

NAlexey   (2003-05-28 09:33:00) [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-28 09:28:00) [3]

alphablend

---

Наверх