Code
procedure TFrmMain.FormCreate(Sender: TObject);
var
hRgn: THandle;
begin
hRgn:=CreateRoundRectRgn(0, 0, Width, Height, 20, 20); //定义园角矩形
SetWindowRgn(Handle, hRgn, True); //设置窗口园角
end;
procedure TFrmMain.FormCreate(Sender: TObject);
var
hRgn: THandle;
begin
hRgn:=CreateRoundRectRgn(0, 0, Width, Height, 20, 20); //定义园角矩形
SetWindowRgn(Handle, hRgn, True); //设置窗口园角
end;