5,388
社区成员
发帖
与我相关
我的任务
分享一个checkbox问题，大家帮帮
界面上有100个checkbox ,我想通过一个按钮将全部checkbox的checked:=false
怎么办？？？？
怎么办？？？？
...全文
请发表友善的回复…
发表回复
Comer 2003-05-30
- 打赏
- 举报
来晚了。up
xzhbaggio 2003-05-30
- 打赏
- 举报
for i:=0 to Form1.ControlCount-1 do
begin
//如果还有其他控件,这里要判断是否为CheckBox
.....
//设置Checked属性
(Form1.ControlCount[i] as Tcheckbox).checked:=false;
end;
begin
//如果还有其他控件,这里要判断是否为CheckBox
.....
//设置Checked属性
(Form1.ControlCount[i] as Tcheckbox).checked:=false;
end;
outer2000 2003-05-30
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
for i:=0 to form1.ComponentCount-1 do
begin
if form1.Components[i] is tcheckbox then
begin
tcheckbox(form1.Components[i]).Enabled :=false;
end;
end;
end;
var
i:Integer;
begin
for i:=0 to form1.ComponentCount-1 do
begin
if form1.Components[i] is tcheckbox then
begin
tcheckbox(form1.Components[i]).Enabled :=false;
end;
end;
end;
haoco 2003-05-30
- 打赏
- 举报
for i:=0 to ComponentCount-1 do
if Components[i].ClassType=TCheckBox then
(Components[i] as TCheckBox).Checked:=false;
if Components[i].ClassType=TCheckBox then
(Components[i] as TCheckBox).Checked:=false;
