有好办法吗？(20分)

M

mylemontree

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-21

• #1

我在一个BUTTON的CLIKE事件中要将所有checkbox（共92个）的checked属性为false，
如果一条条写太麻烦了，用个循环语句之类的多简单，可我也就这样想想，不知道该
怎么写。知道的大哥，能告诉我嘛？

 

A

Activer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-21

• #2

嗯，用这两个属性：
ComponentCount，Components

 

Y

YB_unique

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-21

• #3

for I := 0 to ComponentCount -1 do
if ComponentCount is Tcheckbox Then
(ComponentCount as Tcheckbox).checked := False;

 

M

mylemontree

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-24

• #4

to ：YB_unique
通不过，可以详细点吗？

 

P

Puma Wang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-24

• #5

是这样的 ：
Var
i :integer ;
begin
For i :=0 to self.ComponentCount-1 Do
if self.Components is TCheckBox Then
Begin
if (self.Components as TCheckBox).tag =111 then //可以不要，控制想控制的 CheckBox
(self.Components as TCheckBox).checked :=Not (self.Components as TCheckBox).checked ;
End ;
end;
我是看了 YB_Unique 才回的。谢谢 YB_Unique .
我不要分的 。

 

S

SoftBoy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-24

• #6

应该是
for I := 0 to controlcount-1 do
if controlcount is Tcheckbox Then
(controlcount as Tcheckbox).checked := False;

 

M

mylemontree

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-26

• #7

感谢YB_unique的帮助。