[SergDv]

Помогите разобраться с формой.
Делаю форму прозрачной, всё в порядке.
А как сделать что-бы на визуальные компоненты не действовала эта прозрачность.

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); - панель так же остаётся прозрачной, как вернуть ей обычный вид только НЕ прозрачным.