怎么改变Button和BitBtn的颜色?(100分)

W

wrench

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-11

• #1

Button和BitBtn没有Color属性,
不知如何改变它们的颜色
我可以用DC将Button画成某种颜色,
然后用TextOut写出Caption ,
可是我不知道怎样将TextOut的字体设置为宋体
或楷体,还有,BitBtn上的位图怎么办?

 

J

jet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-11

• #2

试试设父窗体的font属性，看看字体会不会变。

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-11

• #3

控制面板|显示器可修改Button的颜色！
另：通过程序改的Button五颜六色、花里胡哨的也未必美观？！

 

W

wrench

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-11

• #4

to jet
你的办法不行
to jams
控制面版|显示器里面改的是所有按钮的颜色,
我需要在一个屏幕上显示不同颜色的按钮
这是客户的要求,我也不想啊!

又,如何响应按钮的Paint消息

 

C

churchill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-11

• #5

在Paint消息中，canvas.brush.color就是背景颜色。
字体颜色在TextOut前用Canvas.Font.Color指定。

 

W

wrench

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-11

• #6

按钮没有Canvas属性

 

H

hubdog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-11

• #7

你用canvas.textout,设定canvas.font不就行了吗
paint消息是wm_paint
procedure WMpaint(var Message: TMessage); message WM_paint;
如果是Tgraphiccontrol,Tcustomcontrol的后代可重载他的paint方法;

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-11

• #8

那你就直接用个panel什么的自己做一个button效果吧，也不太费事。

 

L

lhxu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-11

• #9

我 在深度上下载了一个彩色按钮控件,试了一下,可以用
发给你用用看

 

H

hubdog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-11

• #10

tbutton是twincontrol的后代，
tempcanvas:tcanvas
tempcanvas:=tcanvas.create;
tempcanvas.handle:=(yourbutton as tcontrol).getdevicecontext(not used)
or //tempcanvas.handle:=getdc(yourbutton.handle)
然后你就可以用canvas画button了。

 

K

killgates

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-11

• #11

客户既然有心情提这种要求，那就照MENXIN的意思吧。

 

A

Alarm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-11

• #12

TButton和TBitBtn都有Font属性，在Font属性中可以设置Color、Name、Style、
Size等诸多属性。

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-11

• #13

try this:

button1{ or bitbtn1 }.brush.style := bsSolid;
button1{ or bitbtn1 }.brush.color := clRed;

 

3

3h

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-12

• #14

用其它的按钮如tb97

 

S

sunstone

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-12

• #15

有个ahm98元件库,里面由此功能按钮,什麽颜色都可以用!!!

 

W

wrench

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-12

• #16

谢谢xulh大虾
您的控件很好用

 

W

wrench

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-12

• #17

多人接受答案了。