Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.04;
Скачать: 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 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.046 c
14-1087197245
Baks
2004-06-14 11:14
2004.07.04
интересный ролик в формате Mpeg


14-1087058594
AZ
2004-06-12 20:43
2004.07.04
Upgrade hardware & setup Win98


14-1082496603
kluben
2004-04-21 01:30
2004.07.04
Помогите советом или кодом для написания игры


1-1087799703
vecna
2004-06-21 10:35
2004.07.04
Фигня какая-то но все же... TWinControl


6-1084254116
Oj
2004-05-11 09:41
2004.07.04
Передача базы данных с помощью сокета