delphi 圆角Panel

在使用DELPHI做开发的时候

经常会使用到皮肤组件,

当需要圆角效果的时候,往往不如人意,

今天找到一个可以做出圆角Panel的方法

代码如下:

var
fhr :Thandle;
begin
fhr := CreateRoundRectRgn(0, 0, Panel1.Width + 1, Panel1.height + 1, 10, 10);
SetWindowRgn(Panel1.Handle, fhr, true);

CreateRoundRectRgn参数

参数	类型及说明
X1,Y1	Long，矩形左上角的X，Y坐标
X2,Y2	Long，矩形右下角的X，Y坐标
X3	Long，圆角椭圆的宽。其范围从0（没有圆角）到矩形宽（全圆）
Y3	Long，圆角椭圆的高。其范围从0（没有圆角）到矩形高（全圆）

不用时一定要用DeleteObject函数删除该区域
用该函数创建的区域与用RoundRect API函数画的圆角矩形不完全相同，因为本矩形的右边和下边不包括在区域之内