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函数画的圆角矩形不完全相同，因为本矩形的右边和下边不包括在区域之内

delphi 圆角Panel

相关推荐

评论

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