一个简单的问题：如果写个循环把PageControl1.page[1]上的全部combobox.items.add('xxxx')？

Question

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
 for i:=0 to form1.ComponentCount-1  do
 begin
  if form1.Components[i]  is tcombobox then
    TCombobox(form1.Components[i]).Items.Add('d'); end;
end;

Answer 1

for iCount := 1 to  8 do
begin
  TComboBox(FindComponent('combobox'+inttostr(iCount))).Items.Add('aaa');
end;

Answer 2

两位，这几个combobox是在pagecontrol的sheet2上的呀！另外页和FROM上都有combobox，我并不想把其它的也加入item。仅仅是对pagecontrol的sheet2上的combobox进行操作。

Answer 3

哦，看错了 ScoutKing(失眠夜) 的代码，先试试看。

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
 for i:=0 to form1.ComponentCount-1  do
 begin
  if form1.Components[i]  is tcombobox then
    if form1.components[i].parent.name := 'sheet1' then  //再判断一下
      TCombobox(form1.Components[i]).Items.Add('d'); end;
end;

Answer 5

使用 outer2000(天外流星) 的方法也可以
只要加一个判断component的parent的语句

Answer 6

for i:=0 to ComponentCount-1 do
  if Components[i] is TComboBox then
    Components[i] as TComboBox).Items.Add('XXX');