我有30个checkbox怎么才能让它一次全部选择,一次全部不选?有什么简单循环的方法?
解决方案 »
- 请教 PaintBox1 绘图中打印的问题!!
- 一只刚刚飞入Delphi的菜鸟
- 求一简单算法,要求获得 D:\sd\fd\qdsdf\ee.exe中的sd,即最顶层的目录名,在线等!
- indy端口问题。分不够再加,没的说。
- ActiveX是否可以和Servlet进行交互?
- 2000分大放送之<十五>!向明日到访的古巴领袖菲德尔·卡斯特罗致敬!
- 关于数据库实时更新的问题,求教
- 请问procedure AddItem中的参数该写什么
- listview 问题
- 控件操作问题
- ????菜鸟想加密和解密长度为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