这里有创建椭圆窗体的一段代码<br>procedure TFrmMain.FormCreate(Sender: TObject);<br>var<br> rgn:HRGN;<br>begin<br> rgn:=CreateEllipticRgn(0,0,150,150);<br> SetWindowRgn(self.Handle, rgn, true);<br>end;<br>更一般的用CreatePolygonRgn代替CreateEllipticRgn就可以做出任意形状的窗体了<br>