Article View: cn.bbs.comp.program
Article #306Re: ��ν����Ŀؼ���FORMCREATEʱ��һ���ʼ����
From: ����
Date: Thu, 06 Aug 1998 00:00
Date: Thu, 06 Aug 1998 00:00
25 lines
2125 bytes
2125 bytes
�� �� DYQ (̫��) �Ĵ������ᵽ: ��
: �� �� skyweb (����) �Ĵ������ᵽ: ��
: : ����Form��Controls���ԣ���һ��Forѭ�������Ǹ�ֵ
: ���Ծ���һЩ��
: ���Թ����Ƕ�����������⣬�����ڵij���ֻ����һ��������ˣ���Ȼ֪����
: ����һ��һ�����������ǣ��Һ�����Ҳ���в������Լ�����ô����£�������
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�ij�Components,ControlCount��
ΪComponentCount���ɡ�
--
[m[1;31m�� ��Դ:���������� BBS bbs.nease.net��[FROM: 202.103.236.137][m
Technical Details
Message-ID:
<3PlZSV$RbD@bbs.nease.net>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailShow Full Headers
Complete Article Headers
X-Google-Language: Chinese,GB X-Google-Thread: fc86e,a78413077b9ea25b X-Google-Attributes: gidfc86e,public From: skyweb.bbs@bbs.nease.net (����) Subject: Re: ��ν����Ŀؼ���FORMCREATEʱ��һ���ʼ���� Date: 1998/08/06 Message-ID: <3PlZSV$RbD@bbs.nease.net> X-Deja-AN: 378482159 X-Filename: Program/M.902402143.A X-Complaints-To: usenet@news.nease.net X-Trace: news.nease.net 902402972 18634 202.96.152.195 (6 Aug 1998 11:29:32 GMT) Organization: Net Ease NNTP-Posting-Date: 6 Aug 1998 11:29:32 GMT Newsgroups: cn.bbs.comp.program,