Скачать: CL | DM;

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

← →
Oleg   (2004-05-24 16:31) [0]

Как в приложении созхдать полупрозрачную форму?

---

← →
Oleg   (2004-05-24 16:33) [1]

слыщал, что в WIN API после win2000 есть специальные функции

---

← →
VMcL ©   (2004-05-24 17:19) [2]

см. TCustomForm.SetLayeredAttribs в Forms.pas.

P.S. Не после 2000, а начиная с 2000.

---

← →
Apihelp   (2004-05-24 21:35) [3]

var
 forma: HRGN;
begin
 forma:=CreateRoundRectRgn(0,80,200,0,25,25);
 SetWindowRgn(Handle,forma,true);
 end;

---

← →
VMcL ©   (2004-05-25 13:26) [4]

>>Apihelp  (24.05.04 21:35) [3]

Полупрозрачную от эллипсной отличаем?

---

← →
Oleg   (2004-05-25 13:48) [5]

Спасибо, посмотрел TCustomForm.SetLayeredAttribs, сделал так:


procedure TForm1.FormCreate(Sender: TObject);
var
 AStyle: integer;
 H: HRGN;
begin
 { 1 } H:= CreateRoundRectRgn( 0, 0, Width, Height, 32, 32 );
 { 2 } SetWindowRgn( Handle, H, true );

 { 3 } AStyle := GetWindowLong(Handle, GWL_EXSTYLE);
 { 4 } if ( AStyle and WS_EX_LAYERED ) = 0 then
 { 5 }   SetWindowLong(Handle, GWL_EXSTYLE, AStyle or WS_EX_LAYERED);
 { 6 } SetLayeredWindowAttributes(Handle, clBlack, 230, LWA_ALPHA );
end;


А вообще у TForm с 6го Дельфи есть:


property AlphaBlend default False;
property AlphaBlendValue default 255;


Они собственно и отвечают за прозрачность формы.

Кста, если закомментировать строки 1 и 2, то и под ХР нормально,
если нет то на форме "шум" появляется, кто-нибуть знает что за глюк?

---

← →
Apihelp   (2004-05-25 20:47) [6]

Полупрозрачную от эллипсной отличаем?
Понял не дурак...
http://forum.3dnews.ru/forums/44/14424/

---

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

Скачать: CL | DM;



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