form1.Color(50分)

B

blackbutterfly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-10

• #1

我要form1.Color=#ccccc5
应该用什么函数转化呢？

 

C

chshanghai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-10

• #2

//rgb(red,green,blue)
用RGB(192,192,192)

 

N

Nstar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-10

• #3

转换成10进制

 

D

D影子D

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-10

• #4

好像只能这样：
form1.color:=rgb(222,222,222);
#ccccc5的rgb值可以到photoshop里得到

 

G

GanQuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-10

• #5

你在设计期选择Form的颜色，把color的值copy出来，在运行时赋值给form的color不就行了！

 

X

xiaoche

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-10

• #6

用RGB转换啊.

 

O

ourself

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-10

• #7

Here is a sample, when user click a button, it calls up function-HexToTColor,
and change the form color:
procedure TForm1.btnColorClick(Sender: TObject);
var
myColor:TColor;
begin
myColor:=HexToTColor('ffccdd');
form3.color:=myColor;
end;

function TForm1.HexToTColor(sColor : string) : TColor;
begin
Result :=
RGB(
StrToInt('$'+Copy(sColor, 1, 2)),
StrToInt('$'+Copy(sColor, 3, 2)),
StrToInt('$'+Copy(sColor, 5, 2))
);
end;

 

B

blackbutterfly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-11

• #8

多人接受答案了。