各位高手帮帮忙!

[chamberlin]

我要建一个开箱的数据库.如果有一千个箱的话,LABEL就要有一千个,它们是代表箱号(如:0001,0002....等等.)如果有人开0001号箱的话,那么所代表的LABEL的颜色就改变为红.如果0001号箱有人结帐走了的话,那么LABEL0001的颜色就改变为黑.
我就是不懂得如何在EDIT里面输入0002或0005的话,按确定按钮后,相对应的LABEL就改变颜色.
请高手们帮我想个办法!

[wonderxin]

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

[hzb]

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

...
end;

[neubird]

来迟一步！

[chamberlin]

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

[hxshanji]

把出错信息告诉人家啊。

[hzb]

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

[hzb]

最好先判断一下对应的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;

[chamberlin]

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