Delphi程序设计及实验指导（第二版） 张景安 第3章 面向对象程序设计

《Delphi程序设计及实验指导（第二版） 张景安 第3章 面向对象程序设计》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第3章面向对象程序设计导读3.1面向对象的可视化编程步骤3.2对象和类的概念3.3消息3.4异常处理3.5程序调试小结习题导读Delphi8for.NET是全新的可视化的编程环境，采用面向对象程序设计语言，为我们提供了一种方便、快捷的编程方法，大大提高了编程效率。本章将主要介绍面向对象的可视化编程步骤，面向对象的基本概念、基本特征等，包括对象、类、方法、封装、继承、多态等，另外，还将介绍消息机制、异常处理以及程序调试的方法等。学习目标：掌握面向对象的可视化编程步骤了解面向对象的基本概念及特征了解消息机制了解异常处理机制掌握程序调试的方法3.1面向对象的可视化编程步骤面向对象的可视

2、化编程一般包括以下步骤：创建应用程序。设计应用程序的界面，添加各窗体的组件对象。设置主窗体组件对象的属性。编写程序代码（主要是按钮的事件处理代码）。保存文件。编译、运行程序。3.1面向对象的可视化编程步骤3.1.1建立新工程在Delphi8集成环境下选择File→New→VCLFormsApplication菜单项，或使用工具条上的New按钮，然后在NewItems窗口的左窗格中选择Delphifor.NETProjects，在右窗格中选择VCLFormsApplication，若此前未打开任何工程，确认后，FormDesigner窗口中会出现一个空白窗体Forml，在CodeE

3、dit窗口中还会出现与Forml对应的代码单元Unitl。若先前已打开了工程并且没有对修改过的工程进行保存，则系统会提示是否保存等信息，处理完毕后系统将关闭该工程，然后新建一个应用程序。3.1面向对象的可视化编程步骤3.1.2设计程序界面InputForm窗体设计界面如图3-1所示，界面上包含5个标签（Label）用于显示输入提示信息；两个文本框（Edit），分别用于输入姓名、工龄；两个组合列表框（ComboBox）分别用于选择职称和部门；3个按钮（Button）分别用于清除、显示和退出程序。InputForm窗体及其包含的组件属性见表3-1。3.1面向对象的可视化编程步骤表3-

4、1InputForm窗体及其包含的组件的属性表组件类型组件名属性名属性值窗体（Form）InputFormCaption教师基本信息标签（Label）Label1Caption请输入教师基本信息Font的子属性Size10Font的子属性Name楷体_GB2312Label2Caption姓名Label3Caption工龄Label4Caption职称Label5Caption部门文本框（Edit）Edit1Caption（空）Edit2Caption（空）组合列表框（ComboBox）ComboBox1Items见习生助教讲师副教授教授Text见习生ComboBox2Items

5、计算机系外语系中文系数理系化工系建工系Text计算机系按钮（Button）BtnClearCaption清除BtnShowCaption显示BtnExitCaption退出3.1面向对象的可视化编程步骤1．设置主窗体的属性单击Forml窗体，在ObjectInspector中设置其属性。将Name属性设置为InputForm，Caption属性设置为“请输入教师基本信息”，未指定属性值的属性取系统默认值。2．添加主窗体的组件对象从组件面板的Standard选项卡上，选择标签、文本框、组合列表框和按钮组件对象，按要求将它们添加到主窗体中。3．设置主窗体中的组件对象属性在Object

6、Inspector中分别设置各组件的属性。要说明的是对下拉列表框组件的Items属性设置的方法，单击Items属性值上的按钮，将弹出编辑对话框，在其中逐行编辑下拉列表框的内容，编辑完毕后单击OK按钮即可。3.1面向对象的可视化编程步骤3.1.3编写程序代码本例所要设计的是按钮组件对象的事件处理程序。双击窗体上的按钮，将打开代码编辑器，在begin和end之间输入如下各按钮的事件处理代码。(*“清除”按钮事件处理代码*)procedureTInputForm.BtnClearClick(Sender:TObject)begin(*清空各文本框*)Edit1.Text:='';Edi

7、t2.Text:='';end;3.1面向对象的可视化编程步骤(*“显示”按钮事件处理代码*)procedureTInputForm.BtnShowClick(Sender:TObject);beginMessageDlg('这是显示教师基本信息的窗体',mtInformation,[mbOk],0);end;(*“退出”按钮事件处理代码*)procedureTInputForm.BtnExitClick(Sender:TObject);beginTInputForm.Close