Форум: "WinAPI";
Текущий архив: 2004.07.04;
Скачать: [xml.tar.bz2];
ВнизПолупрозрачная форма Найти похожие ветки
← →
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 вся ветка
Форум: "WinAPI";
Текущий архив: 2004.07.04;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.029 c