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时候