关于delphi7 下拉列表框的问题

2011-04-15 08:59:26 318 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

ExpressQuantumGrid.Suite.v6.30 在Delphi 7中的安装大名鼎鼎的Grid控件，没有找到打好包的，以下是手动安装步骤=====================1、必须配套安装如下7组控件，已经安装过的则跳过XP Theme ManagerExpressGDI+ LibraryExpressLibraryExpressExport LibraryExpressDataControllerExpressEditors Library 5Expres 阅读详情

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

谢谢~~

...全文

SolidWorks参数化建模实战：从规则定义到智能装配本文深入探讨SolidWorks参数化建模的实战技巧，从规则定义到智能装配的全流程。通过实际案例展示如何提升设计效率300%，确保一致性，并加速系列化开发。重点解析草图阶段植入设计意图、装配体级参数化及高级技巧，帮助工程师掌握三维建模的核心竞争力。阅读详情

tony2278

GAME，图形处理/多媒体 1,184 成员 14,330 内容

+ 关注 + 加入社区

切换为时间正序

tony2278 2011-04-15

打赏
举报

if cbbIPAddress.ImageIndex = 2 then

cbbPort.ItemIndex := 2

不好意思，不小心用错属性了~~

imonsoft2011 2011-04-15

打赏
举报

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

tony2278 2011-04-15

打赏
举报

cbbIPAddress.ImageIndex = -1

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

浩南_哥 2011-04-15

打赏
举报

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

tony2278 2011-04-15

打赏
举报

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

浩南_哥 2011-04-15

打赏
举报



  if cbbIPAddress.ImageIndex = 2 then

  begin

    cbbPort.ItemIndex := 2;

    cbbNetType.ItemIndex := 2;

  end;

这样是可以的，你是不是还有其他的操作，或是cbbPort，cbbNetType的项目数小于2个。

tony2278 2011-04-15

打赏
举报



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;



但是这样子变化并没有反应在界面上啊~

tony2278 2011-04-15

打赏
举报

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;

但是这样子变化并没有反应在界面上啊~

tony2278 2011-04-15

打赏
举报

Microblue 2011-04-15

打赏
举报



procedure TfrmMain.ComboBox1Change(Sender: TObject);//第一个下拉框事件

begin

   ComboBox2.ItemIndex := ID; //ComboBox2是第二个下拉框

   ComboBox3.ItemIndex := ID; //ComboBox3是第三个下拉框

   ComboBox4.ItemIndex := ID; //ComboBox4是第四个下拉框

end;

关于delphi7 下拉列表框的问题

相关推荐