1、Delphi7 程序设计教程 上机实验指导第 1 页【实验目的】1 掌握列表类控件的设计方法【实验步骤】常用快捷键：快捷键 F12（当前窗体与代码编辑窗口切换）,F11（显示对象查看器）,F9（编译并运行当前程序）的功能。控件的大小位置微调方法：Shift+，CTRL+一、编写一个货物选择的程序，步骤如下：1 添加 2 个列表框（Listbox）和 2 个按钮（Button） （截图）2 设置 ListBox1 的 items 属性： 设置 Button1 的 Caption 属性为：添加设置 Button2 的 Caption 属性为：删除（截图）3 编写 button1 的 click 事
2、件代码如下：编写 button2 的 click 事件代码如下：（.exe 文件程序运行结果截图）二、编写一个货物查询的程序，步骤如下：1 添加 1 个组合框（Combobox） ，和一个列表框(Listbox) （截图）2 设置 ComboBox1 的 Text 属性为：设置 ComboBox1 的 style 属性为：csDropDownList 设置 ComboBox1 的 items 属性为：（截图）3 编写事件代码：（.exe 文件程序运行结果截图）三、编写一个显示货物产地的程序，步骤如下：1.添加 1 个多行编辑框（Memo） ，4 个按钮（Button） ，四个如上图所示对话框(
3、 在组件板 Dialogs 分页) （截图）2.设置属性（截图）3.编写事件代码：（.exe 文件程序运行结果截图）四、思考题（有兴趣的同学可以选作）请修改上面的“货物选择”程序，使它能够实现多选的效果，即单击一次“添加”或“删除”按钮可以添加或者删除多个货物。提示：1 Listbox 的 multiselect 要设置2 主要参考代码：vari:integer;beginDelphi7 程序设计教程 上机实验指导第 2 页for i:=listbox1.Count-1 downto 0 dobeginif listbox1.Selectedi then/第 i 个项目被选中begin/添加到另一个列表框/在原有的列表框移除项目end;end;
