как позволить отображать компоненты? .. использую GDI+ окно

[beegl]

добрый день, подскажите, как позволить отображать компоненты? .. использую GDI+ окно по картинке PNG, .. что надо, чтоб показывало компоненты?

нашел пример окно с альфа-каналами

unit Unit1; 
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls; 
 
type
  TForm1 = class(TForm) 
    procedure FormCreate(Sender: TObject); 
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, 
      Y: Integer); 
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton; 
      Shift: TShiftState; X, Y: Integer); 
    procedure FormDblClick(Sender: TObject); 
    procedure FormDestroy(Sender: TObject); 
  end; 
 
var
  Form1: TForm1; 
  last_pos: TPoint; 
  hbmp: HBITMAP; // Прозрачная картинка 
  backdc: HDC; // Контекст для прозрачной картинки 
 
implementation
 
{$R *.dfm}
 
uses GDIPAPI, GDIPOBJ; // Юзаем GDI+ !!! 
 
procedure TForm1.FormCreate(Sender: TObject); 
var
  img: TGPBitmap; 
  screendc: HDC; 
  pt1, pt2 : TPoint; 
  sz : TSize; 
  bf : TBlendFunction; 
begin
  // Убираем рамку окна. Иначе ничего не выйдет. 
  Self.BorderStyle := bsNone; 
  // Делаем окно многослойным 
  if SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or
  WS_EX_LAYERED) = 0 then ShowMessage(SysErrorMessage(GetLastError)); 
  // Загружаем 32-битный PNG с альфа каналом и получаем его HBITMAP 
  img := TGPBitmap.Create('bluesquare.png',True); 
  with img do begin
    GetHBITMAP(0,hbmp); 
    Width := GetWidth; 
    Height := GetHeight; 
    Free; 
  end; 
  // Получаем контекст экрана  
  screendc := GetDC(0); 
  // Создаем контекст, совместимый с экраном 
  backdc := CreateCompatibleDC(screendc); 
  // Загружаем в него картинку 
  SelectObject(backdc, hbmp); 
  // Вызываем UpdateLayeredWindow 
  pt1 := Point(Left, Top); 
  pt2 := Point(0,0); 
  sz.cx := Width; 
  sz.cy := Height; 
  with bf do begin
    BlendOp := AC_SRC_OVER; 
    BlendFlags := 0; 
    SourceConstantAlpha := $FF; // Можно ставить общую прозрачность 
    AlphaFormat := AC_SRC_ALPHA; 
  end; 
  UpdateLayeredWindow(Handle, screendc, @pt1, @sz, backdc, @pt2,0, @bf,ULW_ALPHA); 
  // Освобождаем контекст экрана 
  ReleaseDC(0,screendc); 
end; 
 
procedure TForm1.FormDestroy(Sender: TObject); 
begin
  // Освобождаем ресурсы 
  DeleteObject(hbmp); 
  DeleteDC(backdc); 
end; 
 
// Дальше 2 обработчика нужны, чтобы двигать мышкой форму без заголовка 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, 
  Y: Integer); 
var
  cur_pos: TPoint; 
begin
  if ssLeft in Shift then
  begin
    GetCursorPos(cur_pos); 
    Left := cur_pos.X - last_pos.X; 
    Top := cur_pos.Y - last_pos.Y; 
  end; 
end; 
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; 
  Shift: TShiftState; X, Y: Integer); 
begin
  last_pos.X := X; 
  last_pos.Y := Y; 
end; 
 
// Закрываем прогу по двойному клику в окошке 
procedure TForm1.FormDblClick(Sender: TObject); 
begin
  Close; 
end; 
 
end.

[Человек_Борща]

Если рисуешь форму в GDI, то и компоненты тоже.
Проще говоря пишешь наследника TCustomButton, ловишь все WM_ его сообщения и рисуешь компонент в GDI, как хочешь. Сродни написанию скин-движка.