//汉字窗体
procedure TForm1.btn1Click(Sender: TObject); var r: HRGN; begin r := CreateEllipticRgn(0, 0, 300, 300); SetWindowRgn(handle, r, true); DeleteObject(r); end;
时间: 2024-10-07 20:54:10
//汉字窗体
procedure TForm1.btn1Click(Sender: TObject); var r: HRGN; begin r := CreateEllipticRgn(0, 0, 300, 300); SetWindowRgn(handle, r, true); DeleteObject(r); end;