各位高手帮帮忙!

Question

改变颜色还不容易？
如：label.font.color:=clred;//字体颜色为红色（黑色：clBlack）
    label.color:=clred;//背景颜色为红色

Answer 1

是很容易
var 
 l:TLabel;
begin
...
 l:=FindCompontent('LABEL'+edit1.text) as TLabel;//假如label放在Form上，并且名字是LABLEXXXX,XXXX为0001、0002....
 l.font.color:=clred;
 
...
end;
 

Answer 2

 to hzb(Explorer)　
  为何我按你写的老是出错呢?在I:=FindCompontent('LABEL'+edit1.text) as TLabel;这段.
你能否写具体一点?

Answer 3

Sorry,拼写错误，应该是FindComponent。另外，放在其他容器上也可以用这种方法。

Answer 4

最好先判断一下对应的label是否存在：
var 
 l:TLabel;
begin
...
 l:=FindComponent('LABEL'+edit1.text) as TLabel;//假如label放在Form上，并且名字是LABLEXXXX,XXXX为0001、0002....
if l<>nil then
  l.font.color:=clred;...
end;

Answer 5

    to hzb(Explorer)　
请问你,这种方法为何书上没有啊?请问要看什么书才有象这样的方法的介绍?