发信人: skyweb()
整理人: (1999-06-22 21:39:29), 站内信件
|
【 在 DYQ (太阳) 的大作中提到: 】
: 【 在 skyweb (天网) 的大作中提到: 】
: : 利用Form的Controls属性，用一个For循环给它们赋值
: 可以具体一些吗？
: 我试过，总是多多少少有问题，我现在的程序，只差这一步就完成了，虽然知道：
: 可以一个一个的来，但是，我很懒，也心有不忍让自己做这么样的事：）））
BCB 我不常用，对其中构件的名称并不很熟悉，以下是一段Delphi代码，可供参考：
procedure TForm1.FromCreate(Sender: TObject);
var
i: integer;
begin
for i:=0 to ControlCount-1 do
if Controls[i] is TCheckBox then
TCheckBox(Controls[i]).Checked:=false;
end;
把上面的Delphi代码转换成BCB代码，就OK了。Controls是一个数组，其内容为TFrom
中所有构件（但不包括子容器内的构件）ControlCount是这个数组的大小。或者用
Components也可以，只要把以上代码中的Controls改成Components,ControlCount改
为ComponentCount即可。
--
※ 来源:．广州网易 BBS bbs.nease.net．[FROM: 202.103.236.137]
|
|