利用以下代码即可将窗体设置为一个五边形

procedure TForm1.FormCreate(Sender: TObject);
var
  pt: array [0 .. 4] of TPoint;
  m_rgn: HRGN;
begin
  pt[0].x := self.Width div 2;
  pt[0].y := 0;
  pt[1].x := 0;
  pt[1].y := self.Height div 2;
  pt[2].x := self.Width div 2;
  pt[2].y := self.Height;
  pt[3].x := self.Width;
  pt[3].y := self.Height div 2;
  pt[4].x := self.Width;
  pt[4].y := 0;
  m_rgn := CreatePolygonRgn(pt, 5, WINDING);
  SetWindowRgn(self.Handle, m_rgn, TRUE);
end;