不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

delphi的form 有哪一個屬性能知道在該form裡有什麼控件，包括dbgrid裡有多少個field.

楼主cbluesky（Cloudy）2003-06-02 19:57:46 在 Delphi / VCL组件开发及应用提问

delphi的form 有哪一個屬性能知道在該form裡有什麼控件，包括dbgrid裡有多少個field. 问题点数：20、回复次数：11Top

1 楼cbluesky（Cloudy）回复于 2003-06-02 20:03:53 得分 0

沒有扔理我嗎Top

2 楼lovelymelon（小人物）回复于 2003-06-02 20:07:31 得分 15

没有把
自己写程序
1。
form1.ListBox2.Items.Clear;
i:=form1.ControlCount;
if i>0 then
begin
for j:=0 to i-1 do
begin
s:=form1.Controls[j].ClassName;
if pos(s,form1.ListBox2.Items.Text)<0 then
form1.ListBox2.Items.Add(s);
end;
end;
2。
form1.DBGrid1.FieldCount;Top

3 楼lovelymelon（小人物）回复于 2003-06-02 20:12:42 得分 0

第一个应该是
form1.ListBox2.Items.Clear;
i:=form1.ComponentCount;
if i>0 then
begin
for j:=i-1 downto 0 do
begin
s:=form1.Components[j].ClassName;
if pos(s,form1.ListBox2.Items.Text)<=0 then//此处有变动
form1.ListBox2.Items.Add(s);
end;
end;Top

4 楼zhaofuquan（FQ）回复于 2003-06-02 20:18:05 得分 1

同意同意Top

5 楼zhxfzhxf1（zhxfzhxf1）回复于 2003-06-02 20:34:22 得分 0

TO lovelymelon(小人物) :
我想请教一下为什么要把for j:=0 to i-1 do改为for j:=i-1 downto 0 do

还有if pos(s,form1.ListBox2.Items.Text)<=0 then
可以用if ListBox2.Items.IndexOf(s)<0 then,效果也可能稍微好些.
Top

6 楼zhxfzhxf1（zhxfzhxf1）回复于 2003-06-02 22:05:42 得分 1

补充一下
if i>0 then的判断没有必要的Top

7 楼things（Loving You）回复于 2003-06-02 22:07:02 得分 1

dbgrid.Columns.count;Top

8 楼cbluesky（Cloudy）回复于 2003-06-03 08:31:18 得分 0

我的原始想法是想利用該屬性來實現中英文切換，數據庫用一個表來記錄實現中英文對照，順便問一下該方法把不可見控件包含了嗎，謝謝Top

9 楼fhuibo（永远深爱一个叫“莎”的好女孩儿）回复于 2003-06-03 08:40:58 得分 1

来晚了 upTop

10 楼lovelymelon（小人物）回复于 2003-06-03 09:01:07 得分 0

j:=0 to i-1和j:i-1 downto 0 没关系
if pos(s,form1.ListBox2.Items.Text)<=0 then判断其实只用=0就行，如果不包含就是=0，<=0只是我的习惯。不可见控件没有Top

11 楼LuckyJan（小虾无招）回复于 2003-06-03 09:02:56 得分 1

upTop