Delphi 下如何实现异形控件（比如：圆角矩形的button 、 edit）呢？
答案:4 mip版
解决时间 2021-01-08 15:31
- 提问者网友：神经质
- 2021-01-08 02:44
Delphi 下如何实现异形控件（比如：圆角矩形的button 、 edit）呢？像 千千静听 一样（不过那个是用MFC吧？）。
最佳答案
- 二级知识专家网友：縱马獨歸
- 2021-01-08 03:07
var
rgn: HRGN;
begin
//pnl1:TPanel
pnl1.Color:=clRed; //将颜色设置红色，更明显。
rgn := CreateEllipticRgn(0, 0,pnl1.Width, btn1.Height); //创建椭圆区域，也可以是其他区域
SetWindowRgn(pnl1.Handle, rgn, True); //设置对象在画在哪个区域上
end;
rgn: HRGN;
begin
//pnl1:TPanel
pnl1.Color:=clRed; //将颜色设置红色，更明显。
rgn := CreateEllipticRgn(0, 0,pnl1.Width, btn1.Height); //创建椭圆区域，也可以是其他区域
SetWindowRgn(pnl1.Handle, rgn, True); //设置对象在画在哪个区域上
end;
全部回答
- 1楼网友：落日海湾
- 2021-01-08 05:49
做成图片吧，加载图片，然后点击，显示阴影不同的形状
再看看别人怎么说的。
- 2楼网友：暖心欧巴
- 2021-01-08 04:44
可以是用canvas自己画，不过这样很难看，基本上都是使用图片来做的，使用PNG的话会达到很绚的效果。
- 3楼网友：抚弦思华年
- 2021-01-08 04:18
使用第三方控件raize，其中有一个好像是shapebutton的控件或皮肤控件
我要举报
如以上问答内容为低俗/色情/暴力/不良/侵权的信息，可以点下面链接进行举报，我们会做出相应处理，感谢你的支持！
点此我要举报以上问答信息
推荐资讯