转载：Delphi 代码实现窗口透明+所有组件圆角边框

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

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

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

//Form1.BorderStyle默认为：bsSizeable，点击Button1时候

 

 //Form1.BorderStyle默认为：bsNone，点击Button1时候