标签：
//椭圆窗体
procedure TForm1.btn1Click(Sender: TObject); var r: HRGN; begin r := CreateEllipticRgn(0, 0, 300, 300); SetWindowRgn(handle, r, true); DeleteObject(r); end;
自定义窗体(一)
原文地址：http://www.cnblogs.com/yixuanblog/p/5182399.html
