如何取得控件name属性(100)

柳

柳枫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-09

• #1

我在窗体添加了二十个label控件,名为label1--label20我想随机改变label.caption的内容,比今次要改变label1--label19的caption内容,下次要改变label2--label20的caption..........即:Randomize;i_count:=Random(19);for i:=i_count to 20 do
begin
//我想请教,这里如何取得name属性..//(labeli.naeme).caption:='abc';...请高手出手.

 

W

wqhatnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-09

• #2

vari,i_count:integer;
begin
Randomize;i_count:=Random(4);for i:=0 to self.ComponentCount-1 do
begin
if self.Components.ClassName='TLabel' then
begin
if i=i_count then
TLabel(self.components).caption := intTostr(i_count)+'行了' else
TLabel(self.components).caption := intTostr(i);
end;
end;
end;

 

L

luoyanqing119

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-09

• #3

vari:integer;
begin
for i:=0 to self.ComponentCount-1 do
begin
if self.Components.ClassName='TLabel' then
begin
TLabel(self.components).caption := '你想设的名字';
end;
end;
end;

 

H

HapBegin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-01-22

• #4

for i:=i_count to 20 do
begin
//我想请教,这里如何取得name属性..//(labeli.naeme).caption:='abc';
Tlabel(findcomponent('label' + inttostr(i))).caption := 'abc';
end

 

T

terry_zhou82

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-02-10

• #5

同意，看看刘艺的《delphi面向对象开发程序》里面就有关于这方面的内容。