L longjiang Unregistered / Unconfirmed GUEST, unregistred user! 2004-06-13 #1 怎么再窗体上加载100个控件,怎么把控件的name属性改成相同呀,名字完全相同,在代码中怎么识别他!!!是使用tag属性吗,在delphi中有类似vb中的index的属性吗
L longjiang Unregistered / Unconfirmed GUEST, unregistred user! 2004-06-13 #3 那我界面上有68个combobox的控件名字分别是combobox1....combobox68,但是要让他们都执行相同的代码怎么做呀,要就简单
L longjiang Unregistered / Unconfirmed GUEST, unregistred user! 2004-06-13 #6 遍历了也没有用呀!!! 我想让他下拉的时候读取数据库的内容呀
N ndbpg Unregistered / Unconfirmed GUEST, unregistred user! 2004-06-13 #7 用tag属性,设订要处理的combobox的tag为100-168,然后 for i := 0 to componentcount - 1 do begin if (TComboBox(components).tag <= 168) and (TComboBox(components).tag >= 100) then begin {按不同的tag值给每个combobox不同的处理} end; end; 这样行不?
用tag属性,设订要处理的combobox的tag为100-168,然后 for i := 0 to componentcount - 1 do begin if (TComboBox(components).tag <= 168) and (TComboBox(components).tag >= 100) then begin {按不同的tag值给每个combobox不同的处理} end; end; 这样行不?
L longjiang Unregistered / Unconfirmed GUEST, unregistred user! 2004-06-13 #8 谢谢楼上!!!小弟实在是笨呀!! 这段代码我放在什么地方呀!! 不知道是不是我没有说明白 这68个combobox的控件,执行的代码是一样的,我不想把每个combobox控件的chang的时间里都去写代码,这样太笨了,怎么能在一个combobox的时间里输入就可以了,其他的都来执行呢
谢谢楼上!!!小弟实在是笨呀!! 这段代码我放在什么地方呀!! 不知道是不是我没有说明白 这68个combobox的控件,执行的代码是一样的,我不想把每个combobox控件的chang的时间里都去写代码,这样太笨了,怎么能在一个combobox的时间里输入就可以了,其他的都来执行呢
B blyb Unregistered / Unconfirmed GUEST, unregistred user! 2004-06-13 #9 procedure TForm1.ComboBox1Change(Sender: TObject); begin if sender is TComboBox then begin .......//代码 end; end; 所有的ComboBoxChange都引用它。
procedure TForm1.ComboBox1Change(Sender: TObject); begin if sender is TComboBox then begin .......//代码 end; end; 所有的ComboBoxChange都引用它。