прозрачный элемент PageControl

[Євгеній Бєлік]

Как сделать прозрачным элемент PageControl?
Знаю что можно перехватить сообщение WM_ERASEBKGND, но как это реализовать!
Вот код на с++:

TWndMethod OldTabSWindowProc; 
 //Подменяете функцию отработки 
 OldTabSWindowProc=TabSheet1->WindowProc; 
 TabSheet1->WindowProc=TabSWindowProc; 
 // Ваша отработка, в Bmp - фоновая картинка для Form1. 
 void __fastcall TForm1::TabSWindowProc(Messages::TMessage &msg) 
 { 
   if(msg.Msg==WM_ERASEBKGND && Bmp) 
   { 
     HDC hdc=(HDC)msg.WParam; 
     BitBlt(hdc,0,0,TabSheet1->Width,TabSheet1->Height, 
       Bmp->Canvas->Handle,PageControl1->Left,PageControl1->Top,SRCCOPY); 
     msg.Result=true; 
     return; 
   } 
   OldTabSWindowProc(msg); 
 }

может кто-то его перевести на делфи...
или предложить свой вариант прозрачности элемента!