Прозрачная форма.,,
Помогите разобраться с формой.
Делаю форму прозрачной, всё в порядке.
А как сделать что-бы на визуальные компоненты не действовала эта прозрачность.
procedure SetTrans(Handle: HWND; procent:integer);
var
old: longint;
begin
old:=GetWindowLongA(Handle,GWL_EXSTYLE);
SetWindowLongA(Handle,GWL_EXSTYLE,old or WS_EX_LAYERED);
SetLayeredWindowAttributes(handle, 0, procent, LWA_ALPHA);
end else
SetWindowLongA(Handle,GWL_EXSTYLE,old or WS_EX_LAYERED);
end;
В Кнопке пишу:
SetTrans(Handle, 150); - Есть Гуд
SetTrans(panel1.Handle, 255); - панель так же остаётся прозрачной, как вернуть ей обычный вид только НЕ прозрачным.
|