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 xe 利用fmx控件的makescreenshot过程实现wait效果

Delphi tthread线程同步

Delphi mysql里Delphi事件类型转unix时间戳

如何在Delphi xe中通过ftp下载文件

Delphi xe8 numberbox使用方法及存在的问题

Delphi 修改窗口标题

vclzip控件的使用

Delphi货币类型转中文大写金额

Delphi jpeg图片压缩

Delphi twebbrowser静音

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



打赏

取消

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

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

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

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

评论

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