圆角窗口

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