自定义窗体(一)

//椭圆窗体

procedure TForm1.btn1Click(Sender: TObject);
var
  r: HRGN;
begin
  r := CreateEllipticRgn(0, 0, 300, 300);
  SetWindowRgn(handle, r, true);
  DeleteObject(r);
end;