我想在一个Button的Caption中显示不同的颜色字符,怎么做呢? ( 积分: 100 )

A

ajian320

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-16

• #1

我想在一个Button的Caption中显示不同颜色的文字,怎么做呢?

 

暗

暗夜中独舞

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-16

• #2

o 这个问题到还没考虑过 关注一下

 

壁

壁画

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-16

• #3

放图片。

 

J

jxgxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-16

• #4

很多第三方控件就可以.

 

0

0桁骀

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-16

• #5

procedure TForm1.Button2Click(Sender: TObject);
var
pic: TCanvas;
begin
pic := TCanvas.Create;
try
pic.Handle := GetDC(Button1.Handle);
pic.Brush.Style := bsClear;
pic.Font.Color := clRed;
pic.TextOut(0,0, 'B');
pic.Font.Color := clYellow;
pic.TextOut(10, 3, 'u');
finally
ReleaseDC(Button1.Handle, pic.Handle);
pic.Free;
end;
end;
字体位置自己调整吧，记得给分

 

L

listhano

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-16

• #6

to 0桁骀,
你的办法果然行，
我试了可以实现：

procedure TForm1.Button2Click(Sender: TObject);
var
pic: TCanvas;
begin
pic := TCanvas.Create;
try
Button1.Caption:='';//加一句
pic.Handle := GetDC(Button1.Handle);
pic.Brush.Style := bsClear;
pic.Font.Color := clRed;
pic.TextOut(0,0, 'BBBBBB');
pic.Font.Color := clYellow;
pic.TextOut(10, 3, 'UUUUUU');
finally
ReleaseDC(Button2.Handle, pic.Handle);
pic.Free;
end;
end;

 

L

lifangchao2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-16

• #7

共同学习
顶!

 

A

ajian320

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-16

• #8

0桁骀 ,你这个执行一次后,容易被刷掉! 比如窗体最小化,或是有其它窗体挡住它,都回没有, 怎么让这个画出来的文字一直都在不消失呢?

 

D

dcs_dcs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-16

• #9

所以这就要放在一个合适的事件里ok

 

A

ajian320

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-16

• #10

是哪个事件,怎么加入呢?