是很容易 var l:TLabel; begin ... l:=FindCompontent('LABEL'+edit1.text) as TLabel;//假如label放在Form上,并且名字是LABLEXXXX,XXXX为0001、0002.... l.font.color:=clred;
... end;
to hzb(Explorer) 为何我按你写的老是出错呢?在I:=FindCompontent('LABEL'+edit1.text) as TLabel;这段. 你能否写具体一点?
Sorry,拼写错误,应该是FindComponent。另外,放在其他容器上也可以用这种方法。
最好先判断一下对应的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;
to hzb(Explorer) 请问你,这种方法为何书上没有啊?请问要看什么书才有象这样的方法的介绍?
var
l:TLabel;
begin
...
l:=FindCompontent('LABEL'+edit1.text) as TLabel;//假如label放在Form上,并且名字是LABLEXXXX,XXXX为0001、0002....
l.font.color:=clred;
...
end;
为何我按你写的老是出错呢?在I:=FindCompontent('LABEL'+edit1.text) as TLabel;这段.
你能否写具体一点?
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;
请问你,这种方法为何书上没有啊?请问要看什么书才有象这样的方法的介绍?