本文整理自网络，侵删。
在使用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 getfilehashmd5获取文件 hashmd5值
Delphi中的处理事件 application.processmessages
Delphi 多次改变 richedit.text部份文本的颜色后，出现所有字体都变色的的解决办法
Delphi winapi: getwindow - 获取与指定窗口具有指定关系的窗口的句柄
更多相关阅读请进入《Delphi》频道 >>
