自定义窗体(二)

//汉字窗体

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