实验5实验报告模板.pdfVIP

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