Как скрыть форму, но оставить компоненты на PNG-рисунке?

[Dancewithevil]

Доброго времени суток, ребята. У меня есть один вопрос к вам, знаю что на форуме это неоднократно обсуждалось, но нужного я так не нашёл. Вообщем, у меня есть исходный код, который вместо формы грузит 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.

Прошу вас помочь с тем, чтобы появилась возможность добавлять компоненты на чудную png с тенью. Заранее спасибо вам за ответы, я надеюсь, что правильно изъяснил свой вопрос.

[ibn sinab]

используй pngbutton

[Alex11223]

ibn sinab, Что за ехе в архиве и с какой целью выложили?

[kropotkina-alice]

Сообщение от Dancewithevil

Доброго времени суток, ребята. У меня есть один вопрос к вам, знаю что на форуме это неоднократно обсуждалось, но нужного я так не нашёл. Вообщем, у меня есть исходный код, который вместо формы грузит png с поддержкой альфа-каналов, всё было бы замечательно, если бы компоненты(едиты,батоны) с формы были видимы и поверх рисунка.

Типа такого?

[kropotkina-alice]

Сообщение от Dancewithevil

Прошу вас помочь с тем, чтобы появилась возможность добавлять компоненты на чудную png с тенью. Заранее спасибо вам за ответы, я надеюсь, что правильно изъяснил свой вопрос.

Отрисовка теней у компонентов в целом:

procedure ShadeIt(f: TForm; c: TControl; Width: Integer; Color: TColor);
var
rect: TRect;
old: TColor;
begin
if (c.Visible) then
begin
rect := c.BoundsRect; 
rect.Left := rect.Left + Width;
rect.Top := rect.Top + Width; 
rect.Right := rect.Right + Width;
rect.Bottom := rect.Bottom + Width;
old := f.Canvas.Brush.Color;
f.Canvas.Brush.Color := Color;
f.Canvas.fillrect(rect);
f.Canvas.Brush.Color := old;
end;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
i: Integer;
begin
for i := 0 to Self.ControlCount - 1 do
ShadeIt(Self, Self.Controls[i], 5, clBlack);
end;