转载：Delphi 代码实现窗口透明+所有组件圆角边框
Delphi 代码实现窗口透明+圆角边框
https://blog.csdn.net/YZW20140807/article/details/77568493
说明：CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, arc1, arc2);
View Code//Form1.BorderStyle默认为：bsSizeable，点击Button1时候
//Form1.BorderStyle默认为：bsNone，点击Button1时候
