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,Y1Long,矩形左上角的X,Y坐标
X2,Y2Long,矩形右下角的X,Y坐标
X3Long,圆角椭圆的宽。其范围从0(没有圆角)到矩形宽(全圆)
Y3Long,圆角椭圆的高。其范围从0(没有圆角)到矩形高(全圆)

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

相关阅读 >>

Delphi让程序运行后自我删除或恢复名称

Delphi环境下基于spcomm控件开发串口通讯报文字节丢失的问题解决

Delphi android调用授权管理打开通知监听服务

Delphi 字符串加密解密(不支持中文)

Delphi 检测链接和获取链接内容

Delphi 获取标题栏高

Delphi 能否把.txt文件的数据导入到access数据库中

Delphi 锁定鼠标移动范围

Delphi中datetimepicker组件介绍

Delphi 快捷键

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...