现在遇到了这样一个问题,在一个FORM里有二十多个checkbox,按一个按钮,对它们都置为checked.能否采用for语句来完成??总不能一个个地去完成吧。
例:for i:= 0 to 20 do
begin
.....
end;
中间的代码该如何写啊??
是不是有类似的:checkbox[i].checked ....????
例:for i:= 0 to 20 do
begin
.....
end;
中间的代码该如何写啊??
是不是有类似的:checkbox[i].checked ....????
解决方案 »
- 关于对dbgrid表的操作问题
- delphi中怎么嵌入 XML
- 请问如何在Ehlib的PrintDBGridEh的属性的SetSubstitutes方法中动态传递多个值?
- 请教:如何用API异步操作串口?谢谢!
- 如何在checklistbox里插入title
- 50分请教个简单问题:这个EDIT后面还有个按钮 怎么作的 ( 积分:50, 回复:0, 阅读:0 )
- 用函数改变系统时间怎么老是不对,大家帮我看看吧
- 强烈救命!!!!!!为什么我用qreport1.Page.papersize:=Custom;就会出错,而网上很多介绍都可以?
- 如何将下列实际字符串去掉那个#9呢?
- delphi中连接MSSQL数据库的问题
- 在线等待!查询条件有四个,但是在查询是任意的组合都想查询出结果,请问怎么写SQL语句?
- 有没有CSDN论坛页面左边的导航栏这种风格的treeview?不喜欢delphi中的那个treeview
(componet[i] as TCheckbox).checked...
begin
CheckBox[i].Checked := Checked;
end;
for i:= 0 to 20 do
begin
CheckBox[i].Checked := True;
end;
var I:integer;
begin
for I:=0 to self.ComponentCount-1 do
begin
if self.Components[I] is TCheckBox then
(Self.Components[I] as TCheckBox).Checked:=True;
end;
end;
for i:=0 to self.ComponentCount - 1 do
begin
if self.Components[i] is TCheckBox then
with TWinControl(self.Components[i]) do
begin
checked:=true;
end;//with end;//for i
Tcheckbox(findcomponent('checkbox' + inttostr(i))).checked:=true;