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

[mav_c]

На сколько я знаю, компоненты, у которых есть компонент - родитель в любом случае будут иметь ту же прозрачность.

[SergDv]

А подскажите как это сделать чтобы небыло прозрачным...

[X-rem]

Попробуй сделать другово родителя