如何给SpeedButton加上背景色,在线等侍 ( 积分: 100 )

  • 主题发起人 主题发起人 pangzhenguang
  • 开始时间 开始时间
P

pangzhenguang

Unregistered / Unconfirmed
GUEST, unregistred user!
如何给SpeedButton加上背景色,在线等侍
 
如何给SpeedButton加上背景色,在线等侍
 
如何给SpeedButton加上背景色,在线等侍
 
作一个纯色的图标文件不就行了嘛~
 
当SPEEDBUTTON被拉大时,图标的背景色会变得很难看
 
看看这个属性:flat := true 或者 Glyph
 
设其为透明不就行了吗????
 属性transparent:=True;
 
当设置flat := true 背景色是OWER的背景色,我要的是SPEEDBUTTON可以设置自己的背景色,象PANEL一样,不知大家是否明白我的意思
 
没人出声,是不是分数不够呀,
 
今天的高手都不在线?
 
如何给SpeedButton加上背景色,在线等侍 急
 
老贴子里的讨论:
esnow (2002-09-16 10:25:00)

SpeedButton由于没有color属性,如果想要彩色的化,又不想用第三方控件,
可以用如下方法。
1、放置一label,设置其颜色为需要颜色,autosize属性为False,Caption为空,
设置其大小为合适尺寸。
2、在label上放置一SpeedButton,设置Flat为True,大小与Label相同,
即可获得彩色SpeedButton了。
或者这些
Gingerzy (2002-11-23 9:36:00)
我的意思是当鼠标移动到按钮时,变成一种颜色,鼠标离开时变成另一种颜色。
我在SpeedButton的OnMouseMove时改变颜色,可是当鼠标离开时颜色就不变了,谢谢!

zw84611 (2002-11-23 9:40:00)
另外在SpeedButton的Parent的OnMouseMove中改颜就可以了。

zw84611 (2002-11-23 9:52:00)
比如说你的SpeedButton是放在Form上的,那你在Form的MouseMove中将SpeedButton改成
另一种颜色,明白了?

BloodDemon (2002-11-23 10:03:00)
这样写即可:
比如修改tpanel的颜色,在tpanel的OnMouseMove事件中写:
tpanel(sender).color := clred;
 
To pangzhenguang,
Speedbutton 没有句柄

Use TSpeedButton to add a button to a group of buttons in a form.
TSpeedButton introduces properties that can be used to set graphical
images that represent the different button states (selected,
unselected, disabled and so on).
Use other properties to specify multiple images or to rearrange
the images and text on the button.
TSpeedButton also introduces properties that allow speed buttons to
work together as a group. Speed buttons are commonly grouped in panels
to create specialized tool bars and tool palettes.

Note: To create a speed button with a client-aligned
glyph that covers the button's edges, add a 1-pixel margin
around the button's top and left edges and a 3-pixel margin
around its bottom and right edges. Do this by manually editing
the bitmap specified by the Glyph property.
 
根据D9中TSpeedButton.Paint的代码,代码添加背景色的唯一方法就是自绘制.
如果Theme关掉/Flat=True/Transparent=False,那么
type TControlCrack = class(TControl);
TControlCrack(SpeedButton1).Coloe:= clGreen;
可以添加背景色,但仅仅局限于鼠标不点时的情况.具体可以参见TSpeedButton.Paint的代码
 
接受答案了.
 
后退
顶部