我有30个checkbox怎么才能让它一次全部选择,一次全部不选?有什么简单循环的方法?
解决方案 »
- Merry Christmas
- 多文档中 怎么让 子窗口 和 主窗口的 菜单 工具条 自动合并 和分离?
- 关于oracle数据更新的问题
- 用DELPHI动态生成oracle触发器,该用哪个控件呢?
- 如何检测系统是否已经安装了繁体?
- 提问:我获得了一个hBitmap(注是HBITMAP)类型,如何再获取其图象数据?
- 哪里有DELPHI培训班?
- 请教:用ADO直接打开EXCEL的问题。
- 各位,帮帮忙啦!!!!!!程序中的图片下载
- 请教:关于TListView的一个问题.
- ????菜鸟想加密和解密长度为2000个字节左右的字符串,要求加密后的字符长度能和加密前的差不多,加密后一下子大出好几倍的我也会,高
- 如何在dbgrid或dbedit等感知控件自动更新数据前提示用户保存还是不保存?
i : integer;
begin
for i := 0 to ComponentCount - 1 do
if Components[i] is TCheckBox then
TCheckBox(Delocalize).Checked := True;
end;
i : integer;
begin
for i := 0 to ComponentCount - 1 do
if Components[i] is TCheckBox then
TCheckBox(Components[i]).Checked := True;
end;
if form1.Controls[i] is TCheckBox then
(form1.Controls[i] as TCheckBox).Checked := true;
begin
if copy(Controls[i].name,1,5)='check' then
..................
end;
信誉这低呀Tcheckbox(findcomponent(chenkbox+inttostr(i))).checked:=true;
For I:=0 to controlcount-1