Создание непрямоугольной формы

[_-Re@l-_]

Ну, статей в интернете нашлось много, вот только ни одно толком ничего не объяснила.(ссылка)
Как же всё-таки нормально сделать непрямоугольное окно? Куда нужно прицеплять код из тех статей?

[_-Re@l-_]

Ладно, с этим немного разобрался. Вот только такая проблема: окно появляется стандартное, но только моей формы.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure WMLButtonDown(var Msg: TMessage); message WM_LBUTTONDOWN;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function BitmapToRegion(Bitmap: TBitmap; TransColor: TColor): HRGN;
var
  X, Y: Integer;
  XStart: Integer;
begin
  Result := 0;
  with Bitmap do
    for Y := 0 to Height - 1 do
    begin
    X := 0;
    while X < Width do
    begin
      // Ïðîïóñêàåì ïðîçðà÷íûå òî÷êè
      while (X < Width) and (Canvas.Pixels[X, Y] = TransColor) do
        Inc(X);
      if X >= Width then
        Break;
      XStart := X;
      // Ïðîïóñêàåì íåïðîçðà÷íûå òî÷êè
      while (X < Width) and (Canvas.Pixels[X, Y] <> TransColor) do
        Inc(X);
      // Ñîçäà¸ì íîâûé ïðÿìîóãîëüíûé ðåãèîí è äîáàâëÿåì åãî ê ðåãèîíó âñåé êàðòèíêè
      if Result = 0 then
        Result := CreateRectRgn(XStart, Y, X, Y + 1)
      else
        CombineRgn(Result, Result, CreateRectRgn(XStart, Y, X, Y + 1), RGN_OR);
    end;
  end;

end;

procedure TForm1.FormCreate(Sender: TObject);
var Bmp : TBitmap;
    rgn : HRGN;
begin
      Bmp:=TBitmap.Create;
      Bmp.LoadFromFile('BackGround.bmp');
      rgn := BitmapToRegion(Bmp,clWhite);
      SetWindowRgn(Form1.Handle,rgn,true);
end;

procedure TForm1.WMLButtonDown(var Msg: TMessage);
begin
  Perform(WM_NCLBUTTONDOWN, HTCAPTION, Msg.LParam);
end;

end.

Что не так?

[Прик]

Сообщение от _-Re@l-_

Куда нужно прицеплять код из тех статей?

В процедуру события OnPaint формы.

Пример создание формы с закругленными краями и выноской.
В примере выноска создается функцией CreatePolygonRgn. Никто не мешает применяя эту функцию создавать окно произвольной формы.

procedure TForm1.FormPaint(Sender: TObject);
var rc : TRect; Rgn, Rgn2 : HRGN;
    a : array[0..3] of TPoint;
begin
  GetWindowRect(Handle, rc);
  OffsetRect(rc,  -rc.left,  -rc.top);
  rc.Bottom := rc.Bottom - 20;
  DeleteObject(Rgn);

// создание региона в виде прямоугольника с закругленными краями
  Rgn := CreateRoundRectRgn(
            rc.left, rc.top, rc.right, rc.bottom, 15, 15);

// выноска
   a[0] := Point(25, rc.Bottom-2);
   a[1] := Point(25, rc.Bottom+20);
   a[2] := Point(47, rc.Bottom-2);
   a[3] := Point(25, rc.Bottom-2);
   Rgn2 := CreatePolygonRgn(a, 4, WINDING);
  // объединение двух регионов
   CombineRgn(Rgn, Rgn, Rgn2, RGN_OR);

// рамка вокруг объединенного региона
  FrameRgn(GetDC(Handle), Rgn, CreateSolidBrush(clBlack), 1, 1);
  SetWindowRgn(Handle, Rgn, TRUE);
end;