//汉字窗体
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/5182402.html
