如何创建圆形的标签(50分)

  • 主题发起人 主题发起人 zj_cat
  • 开始时间 开始时间
Z

zj_cat

Unregistered / Unconfirmed
GUEST, unregistred user!
要求:外观是圆形的,而不是正常的方形,有底色
 
先继承一个Label控件,然后自给重写paint函数。
 
拿一个圆形的shape冒充一下很容易,在上面再放一个透明的Label
 
用来干什么?
自己有类似的控件,可以提供思路!!!!
mail to:loopy@netease.com
 
一、有好多好多免费控件。http://go.163.com/~delphi6/
二、通过继承lable等,加上自己的click方法。
推荐第一种,省时省力,质量又好,但最好使用提供源代码的,自己可以改。
 
不行吧,如果只是用Paint重画Lable,鼠标还是能选择圆形以外矩形以内的区域。重载
肯定要作,但是要载OnCreate(?)时建立一个圆形区域(CreateEllipticRgn),再
搞到窗口上(想不起来具体操作,不过论坛中有,你查'Rgn'关键字应该有答案)
 
我只是需要这一个样子一代表某一事物,它需要有鼠标单击和右键单击,
本人是初学者,想把我的一个用VFP编的程序转化过来。原程序的一个控
件由一个BMP图和一个label合成。我不知如何在Delphi中下实现。.
 
区域设置!
CombineRgn
CreateEllipticRgn
 
为什么有同样用image+label
 
附加功能 将问题提前
 
关于区域对象(Region)的编程论坛上太多了,为什么不找一下呢?
 
多人接受答案了。
 
后退
顶部