关于delphi7 下拉列表框的问题

Question

界面有几个相关的下拉列表框，怎么实现当1个列表框的内容发生改变后，其他的下拉列表框的内容也能发生改变?
就当是自动选择。谢谢~~

Answer 1

procedure TfrmMain.ComboBox1Change(Sender: TObject);//第一个下拉框事件
begin
   ComboBox2.ItemIndex := ID; //ComboBox2是第二个下拉框
   ComboBox3.ItemIndex := ID; //ComboBox3是第三个下拉框
   ComboBox4.ItemIndex := ID; //ComboBox4是第四个下拉框
end;

Answer 2

procedure TForm1.cbbIPAddressChange(Sender: TObject);
begin
   if cbbIPAddress.ImageIndex = 2 then
   begin
     cbbPort.ItemIndex := 2;
     cbbNetType.ItemIndex := 2;
     cbbPort.Refresh;
     cbbNetType.Refresh;
     Form1.Refresh;
     Form1.Repaint;
   end;
end;但是这样子变化并没有反应在界面上啊~

Answer 3

procedure TForm1.cbbIPAddressChange(Sender: TObject);
begin
  if cbbIPAddress.ImageIndex = 2 then
  begin
  cbbPort.ItemIndex := 2;
  cbbNetType.ItemIndex := 2;
  cbbPort.Refresh;
  cbbNetType.Refresh;
  Form1.Refresh;
  Form1.Repaint;
  end;
end;但是这样子变化并没有反应在界面上啊~

Answer 4

procedure TForm1.cbbIPAddressChange(Sender: TObject);
begin
  if cbbIPAddress.ImageIndex = 2 then
  begin
  cbbPort.ItemIndex := 2;
  cbbNetType.ItemIndex := 2;
  cbbPort.Refresh;
  cbbNetType.Refresh;
  Form1.Refresh;
  Form1.Repaint;
  end;
end;但是这样子变化并没有反应在界面上啊~

Answer 5

  if cbbIPAddress.ImageIndex = 2 then
  begin
    cbbPort.ItemIndex := 2;
    cbbNetType.ItemIndex := 2;
  end;这样是可以的，你是不是还有其他的操作，或是cbbPort，cbbNetType的项目数小于2个。

Answer 6

是还有其他的操作，其它地方还要根据它们连接上服务器进行文件查找。
而且cbbPort，cbbNetType的项目数都是3个以上~

Answer 7

你可以调试的时候跟踪下 看看 
cbbIPAddressChange 这个事件触发的时候
在这个事件里执行
cbbPort.ItemIndex := 2;
cbbNetType.ItemIndex := 2;
后看看cbbPort.Text,cbbNetType.Text的变化。
如果真的没变化，只能等高手来解决了。

Answer 8

cbbIPAddress.ImageIndex = -1 
刚才单步的时候发现列表框选择之后，ImageIndex 值每次都是 -1 ？！

Answer 9

procedure TfrmMain.ComboBox1Change(Sender: TObject);//第一个下拉框事件
begin
   ComboBox2.ItemIndex := ID; //ComboBox2是第二个下拉框
   ComboBox3.ItemIndex := ID; //ComboBox3是第三个下拉框
   ComboBox4.ItemIndex := ID; //ComboBox4是第四个下拉框
end;
如果从数据库选出来的话就改成adoquery.filebyname('').asstring:=

Answer 10

if cbbIPAddress.ImageIndex = 2 then
cbbPort.ItemIndex := 2
不好意思，不小心用错属性了~~