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

Code:

procedure TForm1.FormCreate(Sender: TObject);

var

R1, R2: HRgn;

begin

  // Создаем линзу (пересечение двух эллипсов)

  R1 := CreateElliPticRgn(-150,-300,363,400); // Задаем

  // координаты эллипса. Верхняя левая точка формы имеет

  // координаты 0,0

  R2 := CreateEllipticRgn(363+150,-300,5,400);

  CombineRgn(R1,R1,R2,RGN_AND); // Получаем пересечение

  // Отрезаем сверху слева

  R2:= CreateEllipticRgn(-40,-30,182,20);

  CombineRgn(R1,R1,R2,RGN_DIFF); // Вычитаем

  // Отрезаем сверху справа

  R2:= CreateEllipticRgn(180,-30,363+40,20);

  CombineRgn(R1,R1,R2,RGN_DIFF);

  // Назначаем полученный регион форме

  SetWindowRgn(Handle, R1, True);

end;

Code:

procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);

begin

inherited;

Message.Result := HTCAPTION;

end;