一字符串str：＝'clred',怎样赋予color 属性？ ( 积分: 100 )

J

jxauyhj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-10

• #1

请问：
一字符串str：＝'clred',怎样赋予color 属性？

 

J

jxauyhj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-10

• #2

请问：
一字符串str：＝'clred',怎样赋予color 属性？

 

J

jxauyhj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-10

• #3

怎么没人知道啊？？

 

X

xyyct

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-10

• #4

用str 或int 存放顏色值
然后用StringToColor 或IntToColor 轉換
或用(TColor)str 強行轉換

 

萨

萨奇马

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-10

• #5

用 StringToColor来解决
例:
str:='clred';
Form1.Color:=StringToColor(str);

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-10

• #6

用TColorBox转一下：
procedure TForm1.Button2Click(Sender: TObject);
var str:string;
begin
str:='clred';
Color:=ColorBox1.Colors[ColorBox1.Items.IndexOf(str)];
end;

 

F

fyxi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-10

• #7

可以赋值. 用StringToColor 函数
procedure TfrmCardEdit.btnPictureClick(Sender: TObject);
var
s : String;
begin
S := 'clGray';
Panel1.Color := StringToColor(S) ;
end;

 

W

whldb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-10

• #8

用StringToColor 函数可以解决
var
str : string;
begin
str := 'clred';
form1.Color := stringtocolor(str);
end;

 

J

jxauyhj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-10

• #9

多人接受答案了。

 

萨

萨奇马

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-10

• #10

to jxauyhj:
如果 whldb 是你的另一个帐号,我这么少分没话可说...但是你这样分配分数,太令人反感了,你这样做,以后会没人回答你的问题....(虽然这个世界本就不公平,但也要做到问心无愧吧)

 

F

fyxi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-11

• #11

楼上的大哥说对了,,jxauyhj 和 whldb 这两个是同一个人........反感