抢分啦，新手提问？(100分)

P

pridecloud

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #1

请问如何对窗体中同一组件进行循环操作。
比如说我要将窗体中的所有TLabel的颜色换掉，
或者要对所有的TCheckBox进行赋值。
这样就要写一个For的循环来处理。
请问这样的循环该如何做。

 

Z

zgdtxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #2

你用TForm.controls属性就可以解决问题了[]

 

A

abc_xp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #3

你用TForm.controls属性就可以解决问题了

 

L

lcl_003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #4

也可以遍利
for i:=1 to componentcount-1 do
if components is Tlablw then
Tlable(components).color):=clred;

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #5

var
i:integer;
begin
for i:=0 to componentcount-1 do
begin
if (Components is tlabel) then
tlabel(Components).color:=clblue;
end;

 

S

smale

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #6

for i:=0 to componentcount-1 do
components.属性:=值;
end

 

D

dedema

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #7

应该是：
var i:integer;
for i:=0 to self.controlcount-1 do
self.controls.属性:=你要的值。
必要时还要对self.controls进行判断和进行类转化。

 

伊

伊天仇

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #8

var
i:integer;
begin
for i:=0 to componentcount-1 do
begin
if (Components is TCheckBox) then
TCheckBox(Components).color:=clRed;
end;
你把TCheckBox改成其它组件类就能实现相应组件的操作

 

P

pridecloud

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #9

多人接受答案了。