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写入txt

Delphi 动态修改exe文件的图标

Delphi中比较两个字符串相似性的百分比算法

Delphi 创建一个进程并读取其控制台输出内容

rad studio Delphi创建安卓服务creating android services

Delphi通过adoquery控件实现sqlserver数据库多结果集的数据打印

Delphi 回车 选择下一个控件

winapi 字符及字符串函数(5): ischaralpha - 是否是个字母

Delphi 极速字符串替换函数

Delphi 根据文本高度确定richedit高度

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



打赏

取消

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

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

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

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

评论

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