1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button1Click(Sender: TObject);
  private
    Reg, FRegion : THandle;
    mx, my       : Integer;
  public
    destructor Destroy; override;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
  x1, x2, y1, y2 : Integer;
const
  r : Integer= 25;
begin
  Caption := '';
  x1 := 90; y1 := 90; x2 := Width - 90; y2 := Height - 90;
  FRegion := CreateRoundRectRgn(5, 10, Width - 10, Height - 10, Width, Height);
  Reg := CreateRoundRectRgn(x1 - r, y1 - r, x1 + r, y1 + r, r * 2, r * 2);
  CombineRgn(FRegion, FRegion, Reg, RGN_DIFF);
  Reg := CreateRoundRectRgn(x1 - r, y2 - r, x1 + r, y2 + r, r * 2, r * 2);
  CombineRgn(FRegion, FRegion, Reg, RGN_DIFF);
  Reg := CreateRoundRectRgn(x2 - r, y1 - r, x2 + r, y1 + r, r * 2, r * 2);
  CombineRgn(FRegion, FRegion, Reg, RGN_DIFF);
  Reg := CreateRoundRectRgn(x2 - r, y2 - r, x2 + r, y2 + r, r * 2, r * 2);
  CombineRgn(FRegion, FRegion, reg, RGN_DIFF);
  SetWindowRgn(Handle, FRegion, True);
  DeleteObject(Reg);
end;

destructor TForm1.Destroy;
begin
  if FRegion <> 0 then begin
    SetWindowRgn(Handle, 0, True);
    DeleteObject(FRegion);
  end;
  inherited Destroy;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  mx := x; my := y;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if ssleft in Shift then begin
    Top := Top + (y - my);
    Left := Left + (x - mx);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Close;
end;

end.[/code]Für andere Formen siehe auch[code]CreateEllipticRgn, CreatePolygonRgn, CreateRectRgn