Delphi 代码实现窗口透明+圆角边框

https://blog.csdn.net/YZW20140807/article/details/77568493

说明：CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, arc1, arc2);