在线等,请指教.

Question

我想给一系列的lable的caption动太赋值.是从lable7-lable15.请问如何动太去做.
如果用循环怎么做.lable并不是在一个容器中.

Answer 1

还有需要说明的是只给指定的几个赋值:lable7--lable8.

Answer 2

提供一思路:为每一个LABLE的TAG属性赋与它们相对应的值(如LABLE1.tag:=1;LAble2.tag:=2......),接下来的不要我说了吧....

Answer 3

for ok:=0 to form1.ControlCount-1 do
     if form1.Components[ok].Tag=1 then
        (components[1] as tlabel).caption:='ok';

Answer 4

还有一种方法:
  var
  i:integer;
begin
 for i:=0 to form1.ComponentCount-1 do
  (form1.FindComponent('label'+inttostr(i+1)) as   Tlabel).caption:='OKOKOK';
end;

Answer 5

上面的句子再好还加入判断以确定FORM上的组件是否是一个Tlabel对像!