[delphi] polprzeroczyste komponenty - problem

czesc, mam problem z polprzeroczystoscią w aplikacji wiem ze problemy podobne juz byly ale nie znalazlem super odpowiedzi ....
Wiem jak ustawic forme polprzezrozysta itp itp ale mam na formie image i chcialbym na nim polozyc jakis półprzezroczysty komponent typu image lub panel - standardowe komponenty z d7 personal nie daj chyba takowej mozliwosci wiec skorzystalem z komponentu semipanels ponizej obrazek jak to wyglada:
http://www.fotosik.pl/pokaz_obrazek/94ef909bea670022.html
wyraznie widac elementy polprzezroczyste.
PROBLEM polega na tym ze te komponenty semipanels - zaawansowane panele) po uruchomieniu aplikacji tak jakbysie wczytuja i migają, dalem doublebuffered formy ale nie pomaga..

zalaczam jeszcze aplikacje do wgladu jak to zacina sie- zero plynności :
http://www.wrzuta.pl/pliki/fzbr0lHk3d/semipanels.rar

ktos moze ma jakies rady ?? mozna jakos ladniej uzyskac efekt PÓŁPRZEZROCZYSTOSCI >>>???

WinAPI ;) Co mi szkodzi, napiszę Ci prostą, przykładową procedurkę...

procedure trans( H: HWND{uchwyt okna}; alpha: BYTE {0-255, przeźroczyste-nieprzeźroczyste } );
begin
  SetWindowLong ( H, GWL_EXSTYLE, GetWindowLong( H, GWL_EXSTYLE ) or $80000 {WS_EX_LAYERED} );
  SetLayeredWindowAttributes( H, 0, alpha, $2 {LWA_ALPHA} );
end;

hyperhex dzieki tylko nie wiem zabardzo jak tego uzyc bo zalozmy ze podam uchwyt kontrolki image ale ja moge miec tych image duzo i niewiem jak pobrac te wszystkie potrzebne dane ...

może spróbuj przerysować użyć metody TCanvas dla danego obiektu i uzyc metody CopyMode stosując jego własności

Własność TCanvas.CopyMode
Znaczenia stałych cm* (R – bit koloru rysunku nakładanego, T – bit koloru
rysunku istniejącego (tła):
cmBlackness – wypełnienie obszaru kolorem czarnym,
cmDstInvert – not T,
cmMergeCopy – R and T,
cmMergePaint – not R or T,
cmNotSrcCopy – not R,
cmNotSrcErase – not (R or T),
cmPatCopy –wzorzec (pędzla),
cmPatInvert –wzorzec xor T,
cmPatPaint – (not R or wzorzec) or T,
cmSrcAnd –R and T (= cmMergeCopy),
cmSrcCopy –R (przyjmowane domyślnie),
cmSrcErase –R and not T,
cmSrcInvert –R xor T,
cmSrcPaint –R or T,
cmWhiteness – wypełnienie obszaru kolorem białym.

ciekawe efekty się osiąga; w tym byś osiągnął efekt przeźroczystości