Сделать окно с дыркой

ОГЛАВЛЕНИЕ    HOME  MAIL

Я сделал так, чтобы окно перемещалось за любое место, поскольку заголовок у него отсутствует.

...
private
  procedure WMNCHITTEST(var Msg: TMessage); message WM_NCHITTEST;
...

procedure TForm1.WMNCHITTEST(var Msg: TMessage);
begin
  inherited;
  Msg.Result := HTCAPTION;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  r, r1: hRgn;
begin
  Form1.BorderStyle := bsNone;
  Width := 400;
  Height := 200;
  r := CreateEllipticRgn(0, 0, 400, 200);
  r1 := CreateRoundRectRgn(150, 60, 250, 140, 20, 10);
  CombineRgn(r, r1, r, RGN_XOR);
  SetWindowRgn(Form1.Handle, r, true);
end;