《软件组件技术》实验指导书.doc

软件组件技术实验指导书王李冬 编二0一四年一月目录实验一 Delphi程序设计初识3实验二 选择分支程序设计6实验三 循环处理程序设计8实验四 自定义数据类型11实验五 Delphi窗体、对话框设计13实验六 常用组件的使用（一）20实验七 常用组件的使用（二）26实验八 MDI程序的编写33实验九 图形与多媒体编程（选做）36实验十 结构化异常处理（选做）43实验十一 数据库编程45实验十二 综合大作业52附录 Delphi函数参考大全70实验一 Delphi程序设计初识实验目的l 了解Delphi 7.0的集成开发环境（IDE）l 初步掌握在Delphi IDE中开发应用程序的一般步骤l 初步掌握窗体设计器、对象观察器、代码编辑器的使用方法实验示例1 设计如下图所示的Windows应用程序。程序运行后，窗口空白显示，鼠标点击窗口，则显示如图文字，同时“退出”按钮激活；单击“退出”按钮，则关闭窗口，结束运行。 实现步骤：1新建Application项目启动Delphi 7.0后，IDE已自动创建并初始化了一个Application项目Project1。第1步可省略。否则，通过执行菜单【File】【New】【Application】项创建，或单击工具栏上的New items快捷钮打开的对话框来创建Application。IDE自动初始化一个Windows应用程序项目。2在窗体上布置组件1）用鼠标拖动的方法，适当调整窗体的大小；2）在standard组件板上用鼠标点击（Button组件），然后在窗体适当位置单击，将自动创建按钮Button1；3）在standard组件板上用鼠标点击（Label组件），然后在窗体适当位置单击，将自动创建标签Label1。3设置窗体和组件属性1）通过单击窗体空白处，或在对象观察器（Object Inspector）窗口的对象列表框中选中Form1，然后在属性页（Properties）中点击选中Caption属性，在其后输入“My first form”属性值；2）同样方法选中Label1组件对象，将其Caption属性值设为“我的第一个Windows应用程序”，Font（字体）属性设为“宋体”、五号、深蓝色，Visible（可视的）属性设为False；3）选中Button1组件对象，设置其Caption属性为“退出”，Enabled（激活的）属性设为False。4编写程序代码1）选中Form1，在对象观察器窗口的事件（Events）页中选中OnClick（鼠标点击）事件，鼠标双击其后的编辑处，IDE则自动初始化了一个TForm1的OnClick事件处理过程（见代码编辑器窗口），转到代码编辑器窗口，在对应事件处理过程中编写如下代码：procedure TForm1.FormClick(Sender: TObject);begin label1.Visible:=true; button1.Enabled:=true;end;2）选中Button1，同样方法，编写其OnClick事件处理程序代码如下：procedure TForm1.Button1Click(Sender: TObject);begin form1.Close;(Application.Terminate;)end;5保存项目和程序单元执行菜单【File】【Save Project As】项，在打开的保存项目文件对话框中，选择项目保存位置，编辑项目文件名，确认保存项目（扩展名dpr）；然后执行菜单【File】【Save As】项，在打开的对话框中保存单元文件（扩展名pas）。或执行菜单【File】【Save All】项，或单击Save All快捷钮，可连续完成上述的项目和程序单元保存操作。其它文件，如窗体文件（dfm）、配置文件（cfg、dof）、资源文件（res）等，系统在用户保存项目和单元的同时自动保存。6编译和执行单击Run快捷钮，或按F9键，或执行菜单【Run】【Run】项，Delphi系统将编译、链接和执行编写好的程序项目。7关闭项目执行菜单【File】【Close All】项，将关闭程序项目。8打开已有项目。执行菜单【File】【Open Project】项，或单击Open快捷钮，可打开已有程序项目。实验习题1设计如图所示的Windows应用程序，在“退出”按钮的OnClick事件处理过程中，加入如下代码：Application.Terminate; 编译、运行，并保存项目为Myfirst.dpr，单元文件为Myfirst1.pas。2鼠标右键单击Delphi IDE主窗口的空白处，执行快捷菜单【Customize】项，打开对话框后，将File菜单下的Close All命令图标拖放到工具栏，建立对应的快捷钮。3通过选择执行【Tools】【Editor Options】菜单项打开的对话框，将编辑器中的颜色和字体设置为个人喜好的格式。实验二 选择分支程序设计实验目的l 掌握单分支结构语句：ifthenl 掌握双分支结构语句：ifthenelsel 掌握多分支选择结构语句：caseofend;l 掌握简单数据类型的应用实验示例 1、 设计如下图所示的Windows应用程序。程序运行后，在编辑框中输入百分制的成绩，鼠标单击“确定”按钮；则窗体上的标签组件显示“优”、或“良”、或“合格”、或“不合格”。实现步骤：1新建Application项目首先关闭上例的程序项目，再创建一个Application项目。2在窗体上布置组件1）适当调整窗体的大小；2）在standard组件板上用鼠标点击（Edit组件），在窗体适当位置单击，自动创建编辑框Edit1；3）在standard组件板上用鼠标点击（Label组件），在窗体适当位置单击，自动创建标签Label1；4）在standard组件板上用鼠标点击（Button组件），在窗体适当位置单击，自动创建按钮Button1。3设置窗体和组件属性若代码编辑窗口已最大化，可按F11键切换到对象观察器窗口。而窗体设计窗口与代码编辑窗口之间的切换可以通过单击“Toggle Form/Unit”快捷钮，或按F12键实现。1）选中Form1，将其Caption属性设为“成绩分类”；2）选中Edit1，设置Font属性为8号、加粗；3）选中Label1，设置Font属性为宋体、五号、深蓝色；4）选中Button1，设置Caption属性为“确定”，Font属性为宋体、小五号；4编写程序代码选中Button1，在对象观察器窗口的事件（Events）页中选中OnClick事件，鼠标双击其后的编辑处，初始化Button1的OnClick事件处理过程，转到代码编辑器窗口，在对应事件处理过程中编写如下代码：procedure TForm1.Button1Click(Sender: TObject);var score: integer;begin score:=strtoint(edit1.Text);/ strtoint(edit1.Text)返回将输入字符串转换成的整数 case score of 90.100: label1.Caption:='成绩：优' 80.89: label1.Caption:='成绩：良' 60.79: label1.Caption:='成绩：合格' else label1.Caption:='成绩：不合格' end; / case.of.结构结束end;5保存项目和程序单元6编译和执行7关闭程序项目实验习题1设计如图所示的Windows应用程序，实现运行时，输入X的值，单击“计算”按钮则按下式计算，并显示Y的值： X0Y = X0编译、运行，并保存项目为Calc.dpr，单元文件为Calc1.pas。提示：函数StrToFloat(S)将字符串S转换成实数返回。实验三 循环处理程序设计实验目的l 掌握循环语句：for to do l 掌握循环语句：while do l 掌握循环语句：repeat until l 掌握跳转语句：break和contitue实验示例1设计一个如下图所示的Windows应用程序，运行时，输入两个正整数，点击“计算”按钮，则计算并输出这两个数之间所有不能被3和7整除的数的和。提示：参考以下代码，编写“计算”按钮的OnClick事件处理过程：procedure TForm1.Button1Click(Sender: TObject);var a,b,s,i: integer;begin a:=strtoint(edit1.Text); b:=strtoint(edit2.Text); if a>b then /若a大于b，则交换a和b begin s:=b;b:=a;a:=s; end; s:=0; / 和初始化为0 for i:=a to b do begin if (i mod 3=0) or (i mod 7=0) then continue; / 跳转再循环 s:=s+i; / 累计和 end;edit3.Text:=inttostr(s);end;或参考如下代码：procedure TForm1.Button1Click(Sender: TObject);var a,b,s,i: integer;begin a:=strtoint(edit1.Text); b:=strtoint(edit2.Text); if a>b then /若a大于b，则交换a和b begin a:=a+b; b:=a-b; a:=a-b;/ 或：a:=a xor b; b:=a xor b; a:=a xor b; end; s:=0; / 和初始化为0 for i:=a to b do if (i mod 3<>0) and (i mod 7<>0) then s:=s+i; edit3.Text:=inttostr(s);end;2设计一个如下图所示的Windows应用程序，利用下列公式计算圆周率的值： =4*(1/1-1/3+1/5-1/7+)。要求精度控制在0.内。提示：括号中是一个数列的和，数列的第n项是1/(2*n-1)，奇数项为正，偶数项为负。利用循环逐项求和，直到该项的绝对值小于0.为止。按钮的OnClick事件处理程序参考如下：procedure TForm1.Button1Click(Sender: TObject);var n: integer; s,t: real;begin s:=1; / 和初始化为第1项 n:=1; t:=1; while abs(t)>0. do begin inc(n); t:=1/(2*n-1); if n mod 2=0 then t:=-t; s:=s+t; end; s:=4*s; edit1.Text:=floattostr(s);end; 实验四 自定义数据类型实验目的l 掌握枚举类型的定义和变量的声明和访问方法l 掌握子界类型的定义和变量的声明和访问方法l 掌握集合类型数据的运算l 掌握记录类型的定义和变量的声明和访问方法实验示例设计一个Windows应用程序，运行时鼠标每点击一次窗口，窗口颜色变化一次，依次变为：红、黄、绿、蓝、紫、灰、黑。运行界面的下图。 解题思路：为记录当前颜色和便于计算下一种颜色，定义一个表示上述几种颜色枚举类型和一个此类型的变量。在窗体激活时（触发OnActive事件），初始化窗体为其中一种颜色。鼠标点击窗口时（触发OnClick事件），计算表示颜色的枚举变量的后继值，若已经是黑色，则重新赋值为红色。然后根据枚举变量记录的颜色枚举值，给窗体的Color属性赋予相应的颜色值。实现步骤：1新建一个Application项目2适当调整窗体的大小3在窗体单元的实现部分（implementation之后）定义如下枚举类型和变量：type TColor=(red,yellow,green,blue,purple,gray,black);var fcolor:TColor;4编写如下窗体的OnActive事件处理代码：procedure TForm1.FormActivate(Sender: TObject);begin form1.Color:=clGray; / 初始化为灰色 fcolor:=gray; /初始化枚举变量为相应的值end;5编写如下窗体的OnClick事件处理代码：procedure TForm1.FormClick(Sender: TObject);begin if fcolor=black then fcolor:=red else fcolor:=succ(fcolor); / 计算后继颜色 case fcolor of red: form1.Color:=clRed; yellow: form1.Color:=clYellow; green: form1.Color:=clGreen; blue: form1.Color:=clBlue; purple: form1.Color:=clPurple; gray: form1.Color:=clGray; black: form1.Color:=clBlack; end;end;3保存程序项目和窗体单元4编译和执行实验五 Delphi窗体、对话框设计5、1 Delphi窗体设计一、实验目的熟练掌握常用的窗体属性，能设计美观实用的窗体，较熟练的在窗体中添加组件，设置组件属性，设置Tab次序，对齐组件，以及动态创建组件和设置属性；二、实验内容设计教师基本信息输入程序；三、实验要求设计窗体程序，是窗体完成指定的功能；四、实验课时：2 课时五、实验步骤：1进入Delphi开发环境展开windows的“开始”菜单，选择“程序”>“Borland Delphi7”，进入Delphi开发环境。2创建项目缺省时Delphi创建了一个项目和一个窗体单元文件，我们直接对窗体设置大小和字体等属性，开始进行主菜单设计。3界面设计InputForm窗体设计界面如图3.1所示，界面上包含五个标签（Label），用于显示输入提示信息，两个文本框（Edit），分别用于输入姓名、工龄；二个组合列表框（ComboBox），分别用于选择职称和部门的输入内容；三个按钮（Button），分别用于清除、显示和退出程序。InputForm窗体及其包含的组件属性见书表3-1。图3.1表3.1 控件属性设置控件名属性属性值控件名属性属性值Label1Caption姓名NameText空串Label1Caption年龄AgeText空串Label1Caption职称TitleText空串Label1Caption部门DepText空串BtnClearCaption清除BtnExitCaption退出BtnShowCaption显示4编写代码本例所要设计的是按钮组件对象的事件处理程序。双击窗体上的按钮，将打开代码编辑器，在begin和end之间输入如下各按钮的事件处理代码。(*“清除”按钮事件处理代码*)Procedure TInputForm.BtnClearClick (Sender: Object);Begin(*清空各文本框*)Edit1.Text:= ''Edit2.Text:= ''End;(*“显示”按钮事件处理代码*)Procedure TInputForm.BtnShowClick (Sender: Object);Var str:String;BeginStr:=教师的基本信息为：姓名：+name.text+；年龄：+age.text+；职称：+title.text+；部门：+dep.text;MessageDlg('这是显示教师基本信息的窗体', mtInformation, mbOk, 0);End;(*“退出”按钮事件处理代码*)Procedure TInputForm.BtnExitClick (Sender: Object);BeginTInputForm.Close; /关闭TInputForm窗体End;5保存文件选择FileSave All选项，由于这个新建的工程还没有命名，所以首先会出现一个Save As对话框，默认的单元名是Unitl，用户可以用更具描述意义的名字代替它。在这里，使用InputUnit.pas进行命名。保存完单元文件后，又会出现Save As对话框，要求为工程文件命名，在这里，把它命名为InputPrj.dpr。注意：在进行程序设计前，应该先建立一个目录，用来存放工程文件，便于管理。（6）运行程序运行程序的方法主要有以下几种：打开Run菜单，选择Run子菜单。 快捷键：F9。单击工具栏中的绿色按钮。其他的程序运行方式在本章第五节程序调试中将详细介绍。运行后，在文本框中分别输入姓名（张红）、工龄（19），并选择职务（副教授）和部门（外语系）的值，如图2-2所示。按下“退出”按钮，将关闭“教师基本信息”窗口，结束程序的运行。（7）生成exe文件打开工程文件，选择菜单项ProjectBuild <工程文件名>，生成可执行文件，文件名与工程文件名同名，扩展名为.exe。可以通过双击.exe文件图标启动应用程序。例如：由工程文件InputPrj.dpr生成exe文件的过程是：选择菜单项ProjectBuild InputPrj，生成InputPrj.exe文件，双击InputPrj.exe文件图标，即可运行应用程序。最终运行界面如图3.2所示。图3.2 InputForm运行界面3、2 Delphi对话框设计一、实验目的熟悉Delphi中对话框和标准框的使用，锻炼界面设计和代码编写。二、实验内容1、设计一个字体对话框，当用户选中某种字体之后，按钮的字体将改变为选中的字体；2设计一个“考试系统”登录界面，用户必须选择登录身份，如果是管理员，必须输入密码；如果是考生，必须输入八位准考证号。3.设计一文字编辑窗口，可以打开文件，经编辑后保存。 三、实验要求按要求设计窗体，并根据需要调用各类对话框。四、实验学时：2学时五、实验步骤练习1：设计一个字体对话框1进入Delphi开发环境展开windows的“开始”菜单，选择“程序”>“Borland Delphi7”，进入Delphi开发环境。2创建项目缺省时Delphi创建了一个项目和一个窗体单元文件，我们直接对窗体设置大小和字体等属性，开始进行主菜单设计。3界面设计界面设计如图4.1所示。图4.14编写代码响应按钮OnClick事件的代码如下：procedure Tform1.Button1Click(Sender:TObject);begin FontDialog1.Execute; end;在窗体的OnApply事件中添加代码如下：procedure TForm1.FontDialog1Apply(Sender: TObject; Wnd: HWND);beginbutton1.Font:=fontdialog1.Font;end;5保存并运行程序。将文件以“project6_ex1.dpr”为名保存工程，存放在“实验三”文件夹中。练习2： “考试系统”登录界面设计1进入Delphi开发环境展开windows的“开始”菜单，选择“程序”>“Borland Delphi7”，进入Delphi开发环境。2创建项目缺省时Delphi创建了一个项目和一个窗体单元文件，我们直接对窗体设置大小和字体等属性，开始进行主菜单设计。3界面设计界面设计如图4.2所示。图4.2登录界面4编写代码。在LoginForm窗体所对应的单元文件中添加如下代码：implementation$R *.dfm登录界面“确定”按钮的事件处理程序代码如下：uses ExamUnit; /ExamUnit是模式对话框的单元文件const glmm='ksxt' /定义管理员密码procedure TLoginForm.BtnConfirmClick(Sender: TObject);begin if (not RadioButton1.checked) and (not RadioButton2.Checked) then MessageDlg('请选择用户身份！',mtWarning,mbOK,0); /必须选择用户身份 if RadioButton1.checked then /用户身份为管理员 if edit1.text=glmm then begin ExamForm.caption:=' 系统管理' ExamForm.ShowModal; close; end else MessageDlg('密码错误,请重新输入!',mtError,mbOK,0);If RadioButton2.checked then /用户身份为考生 if Length(Edit2.text)<>8 then MessageDlg('重新输入准考号！',mtWarning,mbOK,0) else begin ExamForm.caption:='祝你成功' ExamForm.ShowModal; close; end;end;“退出”按钮的事件处理代码如下：procedure TLoginForm.BtnQuitClick(Sender: TObject);begin close;end;5运行程序。6）保存文件。选择FileSave，以“project6_ex2.dpr”为文件名保存工程，存放在“实验三”文件夹中。练习3： 设计一文字编辑窗口，可以打开文件，经编辑后保存。1进入Delphi开发环境展开Windows的“开始”菜单，选择“程序”->“Borland Delphi 7”à“Delphi 7”，进入Delphi开发环境。2创建项目缺省时Delphi创建了一个项目和一个窗体单元文件，我们直接对窗体设置大小和字体等属性，开始进行主菜单设计。3添加组件往窗体中添加1个MainMenu组件MainMenu1、一个Memo组件Memo1、1个OpenDlalog组件OpenDiolg1、1个SaveDialog组件SaveDialog1.4设置窗体属性将Form1的Caption属性设置为“草稿纸”，Memo1的Align属性设置为alClient，Memo1随着窗体的变化而变化，Memo1的Lines属性设置为“空”，OpenDialog1的Filter属性设置为“文本文件|*.txt”。5建立菜单如表4.1所示。表4.1 控件属性设置文件（&F）编辑（&E）格式（&O）帮助（&H）新纸（&N）撤销（&U）换行（&H0主题（&T）打开（）【分割线】字体（&F）关于（&A）保存（S）剪切（&T）颜色（&C）【分割线】复制（&C）页面（&G）粘贴（&P）打印（P）删除（&D）【分割线】【分割线】退出（&E）查找（&F）替换（&R）全选（&）转到（）【分割线】日期（）时间（）6编写组件事件代码为菜单“打开”添加“OnClick”事件，作用是打开“Open”对话框，从中选择一个文件，并在Memo1中打开。Procedure Tfrom1.O1Click（Sender：Tobject）;BeginIf OpenDialog1.execute thenMemo1.Lines.LoadFromFile(OpenDialog1.Filename);End;为菜单“保存”添加“OnClick”事件，作用是打开“Save”对话框，从中选择一个文件名，并将Memo1组件中文本按照该文件名保存，其代码如下：Procedure Tfrom1.S1Click（Sender：Tobject）;BeginIf SaveDialog1.execute thenMemo1.Lines.SaveFromFile(SaveDialog1.Filename);End;为菜单“退出”添加“OnClick”事件，作用是关闭窗体，其代码如下：Procedure Tfrom1.S1Click（Sender：Tobject）;BeginClose;End;7保存程序将单元文件保存为“Unit7_ex1.pas”，将项目文件保存为“Project7_ex2.dpr”。8编译运行程序单击工具栏中“Run”按钮运行程序。运行后，单击工具栏上“打开”按钮，打开“Open”对话框，选择一个文本文件打开，编辑后单击“保存”按钮，打开“Save”对话框。以“project6_ex3.dpr”为文件名保存工程，存放在文件夹中。实验六 常用组件的使用（一）实验目的l 掌握窗体和常用组件的常见属性设置方法l 掌握窗体和常用组件的常用方法的调用l 理解窗体和常用组件的常见事件的发生时机l 掌握运用组件设计应用程序界面的一般方法实验示例1 设计一个Windows应用程序。窗口标题为“登录验证”，将窗体字体设置为“宋体”、小五号；要求在2个编辑框分别输入最多9位的学号和最多8位的口令，输入口令时，字符以“*”号显示，编辑框字体为绿色。运行时单击“确定”按钮，若输入口令正确（假定密码是“”），显示欢迎信息，否则聚焦口令编辑框并全选内容。运行界面的下图。 实现步骤：1新建一个Application项目。2设计窗体，添加组件和设置属性。1）设置窗体Form1的属性：选中Form1，在对象观察器窗口中将其Caption属性（描述窗体的标题文字）编辑为“登录验证”。如下左图所示。 设置Form1的Font属性（描述窗体上其它组件的默认字体）：点击如上右图中的钮，打开下图所示的字体设置对话框，将窗体字体设置为“宋体”、小五号：2）在设计窗体上放置2个标签（Label）组件，将其Caption属性（描述标签的文本）分别设置为“学号”和“密码”。3）在设计窗体上放置2个编辑框（Edit）组件，适当调整其位置，同时选中Edit1和Edit2组件，修改其Font属性，将字体颜色设为绿色。单独选中用于学号输入的Edit1，设置其MaxLength属性（允许输入的最大字符数）的值为9；再单独选中用于密码输入的Edit2，设置其MaxLength属性的值为8，设置其PasswordChar属性的值为符号*（直接输入*符号）。4）在设计窗体上放置一个按钮（Button）组件，设置其Caption属性（按钮上的文字）为“确定”。至此，已完成界面的设计。3定义常量在窗体单元的实现部分（Implementation）的开始处，为密码定义一个string类型的常量：const mima : string = ;4为实现程序的功能要求，即单击“确定”按钮时程序应当作出的一系列响应。显然，应选择和针对按钮Button1的OnClick事件（当鼠标点击对象时触发）编写适当的处理程序。选中Button1，在对象观察器窗口的事件（Events）页中选中OnClick事件（鼠标点击），鼠标双击其后的编辑处，IDE则自动初始化了一个Button1的OnClick事件处理过程（见代码编辑器窗口），转到代码编辑器窗口，在对应事件处理过程中编写如下代码：procedure TForm1.Button1Click(Sender: TObject);begin if edit2.Text = mima then ShowMessage('Hello! '+edit1.Text) / 显示欢迎信息 else begin edit2.SetFocus; / 使edit2获得焦点 edit2.SelectAll; / 全选edit2中的文本 end;end;5保存程序项目和单元6编译和执行2 设计一个如下图所示的Windows应用程序。设计时，在窗体上放置一个编辑框和一个列表框，向列表框添加“Standart”、“Additional”、“Win32”等三项，另向添加3个按钮，按钮的标签分别设为“添加”、“替换”、“删除”。针对不同组件对象编写适当的事件处理程序，使程序运行时实现下列功能： 鼠标双击列表框的某一项时，编辑框显示该项内容； 点击“添加”按钮，则将编辑框中的内容追加到列表框中，成为其新的一项； 点击“替换”按钮，则将编辑框的内容替换列表框的选择项； 点击“删除”按钮，则删除列表框的选择项。实现步骤：1关闭原有项目，新建一个Application项目2设计窗体，添加组件和设置属性。1）选中Form1，在对象观察器窗口中将其Caption属性编辑为“编辑列表”。2）向窗体分别放置一个编辑框和一个列表框，适当调整其大小和位置；选中列表框Listbox1，在对象观察器窗口找到其Items属性（列表的项目），点击其后的钮，打开如下页图中所示的列表编辑对话框，添加“Standart”、“Additional”、“Win32”等三项内容。3）向窗体添加3个按钮，依此分别选中某一按钮，并将Caption属性（按钮标签）分别设为“添加”、“替换”、“删除”。至此，完成窗体界面设计。3接下来，逐一选择组件对象，编写适当的事件处理程序，实现运行时的特定功能。1）选中Listbox1对象，在对象观察器窗口的Event页找到OnDblClick事件（即鼠标双击列表框时发生的事件），双击其后空白处，编写如下代码，以实现第项功能：procedure TForm1.ListBox1DblClick(Sender: TObject);begin edit1.Text:=listbox1.Itemslistbox1.ItemIndex;end;其中ItemIndex属性是Integer类型，表示列表框的选择项。或使用如下语句：edit1.Text:=listbox1.Items.Stringslistbox1.ItemIndex;2）选中“添加”按钮Button1，在对象观察器窗口的Event页找到OnClick事件，双击其后空白处，编写如下代码，以实现第项功能：procedure TForm1.Button1Click(Sender: TObject);begin listbox1.Items.Add(edit1.Text); / 列表框添加一项end;3）选中“替换”按钮Button2，在对象观察器窗口的Event页找到OnClick事件，双击其后空白处，编写如下代码，以实现第项功能：procedure TForm1.Button2Click(Sender: TObject);begin listbox1.Itemslistbox1.ItemIndex:=edit1.Text;end;4）选中“删除”按钮Button3，在对象观察器窗口的Event页找到OnClick事件，双击其后空白处，编写如下代码，以实现第项功能：procedure TForm1.Button3Click(Sender: TObject);begin listbox1.Items.Delete(listbox1.ItemIndex);end;4保存程序项目和单元5编译并执行实验习题1设计一个如下图所示的Windows应用程序，使其可进行加、减、乘、除四则运算，运算符由运行时在组合式列表框中选择，单击“=”按钮后，计算并显示结果，如除运算时除数为0，报告“除数不能为0！”的信息，并将输入焦点落于输入除数的编辑框。提示：组合式列表框ComboBox1的ItemIndex属性指示当前选项是哪一项，0表示第一项，1表示第二项，2表示第三项，依此类推。“=”按钮的OnClick事件处理程序参考如下：procedure TForm1.Button1Click(Sender: TObject);var a,b: real;be