Формы нестандартного вида

Code:

procedure TForm1.FormCreate(Sender: TObject);

var

ap: array [1..7] of TPoint;

av: array [1..2] of integer;

r, r2, r3, r4: hRGN;

begin

ap [1] := Point (0, 0);

ap [2] := Point (Width, 0);

ap [3] := Point (Width, Height div 2);

ap [4] := Point (0, Height div 2);

ap [5] := Point (Width div 2, Height div 2);

ap [6] := Point (0, Height);

ap [7] := Point (Width, Height);

av [1] := 4;

av [2] := 3;

r := CreatePolyPolygonRgn (ap, av, 2, WINDING);

try

  r2 := CreateRoundRectRgn

    (Width div 4 - 20, Height div 6 - 20,

     Width div 4 + 20, Height div 6 + 20, 16, 16);

  r3 := CreateRoundRectRgn

    (Width div 4 * 3 - 20, Height div 6 - 20,

     Width div 4 * 3 + 20, Height div 6 + 20, 16, 16);

  r4 := CreateEllipticRgn

     (Width div 10, Height div 9 * 3,

     Width div 10 * 9, Height div 9 * 4);

  try

    CombineRgn (r, r, r2, RGN_XOR);

    CombineRgn (r, r, r3, RGN_XOR);

    CombineRgn (r, r, r4, RGN_XOR);

  finally

    DeleteObject (r2);

    DeleteObject (r3);

    DeleteObject (r4);

  end;

  SetWindowRgn (Handle, r, TRUE);

finally

  DeleteObject (r);

end;

end;