《第05章 使用复杂组件.ppt》由会员分享,可在线阅读,更多相关《第05章 使用复杂组件.ppt(28页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、 Delphi Delphi 程序设计程序设计程序设计程序设计南昌理工学院计算机系南昌理工学院计算机系主讲:陈强主讲:陈强 Delphi 程序设计程序设计v第1章 Delphi 2005简介v第2章 Object Pascal语言基础v第3章 Windows应用程序界面设计v第4章 菜单、工具栏和对话框v第5章 使用复杂组件v第6章 面向对象的核心特性v第7章 多文档界面设计v第8章 程序调试与异常处理v第9章 文件操作和流v第10章 多媒体应用设计v第11章 数据库应用设计v第12章 综合应用设计第第5章章 使用复杂组件使用复杂组件1.5.1 滚动控件滚动控件2.5.2 日期类控件日期类控件
2、3.5.3 多页控件多页控件PageControl4.5.4 进程条进程条ProgressBar5.5.5 字符串网格字符串网格StringGrid6.5.6 树形视图树形视图TreeView7.5.7 列表视图列表视图ListView Delphi 程序设计5.1 滚动控件滚动控件1.5.1.1 滚动条滚动条ScrollBar2.5.1.2 带刻度的滚动条带刻度的滚动条TrackBar3.5.1.3 微调按钮微调按钮UpDown Delphi 程序设计5.1.1 滚动条滚动条ScrollBar1.ScrollBar的主要属性的主要属性Kind 指定ScrollBar的方向,取值为sbHori
3、zontal(水平)、sbVertical(垂直)Position指定ScrollBar中滚动块的当前位置Min 指定Position属性的最小值Max 指定Position属性的最大值2.ScrollBar控件的主要事件控件的主要事件OnChange 当Position属性值改变时触发OnScroll当拖动滚动条上滑块时触发 Delphi 程序设计【例例5.1】合成颜色。合成颜色。1.界面设计界面设计 2.窗口初始化窗口初始化 3.改变改变Shape的颜色的颜色 4.响应编辑框中输入值响应编辑框中输入值 Delphi 程序设计5.1.2 带刻度的滚动条带刻度的滚动条TrackBar1.Tra
4、ckBar的主要属性的主要属性Orientation属性:指定摆放方向,取值为trHorizontal(水平)、trVertical(垂直)。TickMarks属性:指定刻度出现位置,取值为tmBottomRight(右边或下边)、tmTopLeft(左边或上边)、tmBoth(两侧)。Frenquency属性:指定刻度间隔。2.TrackBar的主要事件的主要事件:OnChange Delphi 程序设计5.1.3 微调按钮微调按钮UpDown1.UpDown的主要属性的主要属性Associate指定UpDown依附的控件AlignButton 指定UpDown与其所依附控件的相对位置,取值
5、为udLeft(左侧)、udRight(右侧)Increment当单击按钮时,控制Position的增量,默认值为1。Orientation指定按钮方向,取值为udHorizontal(水平)、udVertical(垂直)2.UpDown的主要事件的主要事件OnChanging和OnChangingEx事件OnClick事件 Delphi 程序设计5.2 日期类控件日期类控件1.5.2.1 日期时间类日期时间类TDateTime2.5.2.2 日期和时间控件日期和时间控件DateTimePicker3.5.2.3 月历控件月历控件MonthCalendar4.5.2.4 日历控件日历控件Cal
6、endar Delphi 程序设计5.2.1 日期时间类日期时间类TDateTime1.TDateTime的整数部分记载天数,小数部分记的整数部分记载天数,小数部分记载小时数。例如,载小时数。例如,0表示12/30/1899 12:00 am-1.25表示12/29/1899 6:00 am35065 表示1/1/1996 12:00 am 2.TDateTime类提供的过程和函数类提供的过程和函数 function Date:TDateTime;/返回当前日期function Time:TDateTime;/返回当前时间function Now:TDateTime;/返回当前日期与时间fun
7、ction EncodeDate(Year,Month,Day:Word):TDateTime;/日期编码procedure DecodeDate(Date:TDateTime;var Year,Month,Day:Word);/日期解码 Delphi 程序设计5.2.2 日期和时间控件日期和时间控件DateTimePicker1.DateTimePicker的主要属性的主要属性 Date 日期值,如2000-1-1Time时间值,如10:10:10Kind 显示类型,取值为dtkDate(日期)、dtkTime(时间)DateFormat日期的显示格式,取值为dfShort(短日期,两位年份
8、)、dfLong(长日期,四位年份)MaxDate日期的最大值MinDate日期的最小值 Delphi 程序设计5.2.3 月历控件月历控件MonthCalendar1.MonthCalendar的主要属性的主要属性 MultiSelect 指定是否允许多选。ShowToday指定是否特别标注Today的日期ShowTodayCircle指定Today值是否有红色圈标注WeekNumbers指定是否显示周数列表。FirstDayofWeek MonthCalendar表格以星期几开始排列。Delphi 程序设计5.2.4 日历控件日历控件Calendar1.Calendar的主要属性的主要属性
9、 Year、Month Day分别表示日期中的年、月、日值GirdLineWidth指定网格线的宽度StartofWeek指定Canlendar表格以星期几开始排列。取值为0(星期日,默认)、1(星期一)等 Delphi 程序设计5.3 多页控件多页控件PageControl1.建立多页建立多页执行弹出式菜单命令New PagePageControl的选中状态有所不同:的选中状态有所不同:单击PageControl标题,选中PageControl控件;单击页面,选中当前TabSheet页面。Delphi 程序设计2.PageControl多页控件的主多页控件的主要属性要属性1.ActivePa
10、ge指定指定PageControl控件的当前页。控件的当前页。2.Multiline指定指定PageControl控件是否呈现多行风格控件是否呈现多行风格3.Images 指定与指定与PageControl相关联的图像列表组件相关联的图像列表组件4.PageCount指明指明PageControl控件的总页数控件的总页数5.Pages 保存保存PageControl控件的所有页面。控件的所有页面。Pages是一是一个数组,元素类型为个数组,元素类型为TTabSheet,元素个数放在,元素个数放在PageCount中中6.ActivePageIndex指明当前活动页的指明当前活动页的Pages属
11、性的下属性的下标,从标,从0开始计数开始计数例如,例如,PageControl1.ActivePage:=PageControl1.PagesPageControl1.PageCount-1;Delphi 程序设计3.TabSheet页面的主要属性页面的主要属性1.Caption标签页名称标签页名称2.PageIndex该页在该页在Pages数组中数组中的下标,从的下标,从0开始开始3.TabVisible该页是否可见该页是否可见4.ImageIndex该页使用的图像在该页使用的图像在ImageList中的索引值中的索引值 Delphi 程序设计【例例5.2】多页方式显示日期多页方式显示日期与
12、月历。与月历。1.添加添加PageControl 2.各页显示图标各页显示图标 3.页面上添加控件页面上添加控件 4.窗口初始化窗口初始化 5.识别当前页识别当前页 6.使使3个日期类控件所显示的日期一致个日期类控件所显示的日期一致 7.按钮上的控制按钮上的控制 Delphi 程序设计5.4 进程条进程条ProgressBar1.ProgressBar的主要属性的主要属性Position指定ProgressBar的当前位置。Max和Min 确定ProgressBar的位置范围。Step 指定ProgressBar控件变化的增量2.ProgressBar的方法的方法procedure StepI
13、t;/使Position属性增加Step属性值procedure StepBy(Delta:Integer);/使Position属性增加参数Delta值 Delphi 程序设计5.5 字符串网格字符串网格StringGrid1.ColCount指定列数指定列数2.RowCount 指定行数指定行数3.FixedCols指定固定列。指定固定列。4.FixedRows 指定固定行指定固定行5.DefaultColWidth 指定列宽度指定列宽度6.FixedColor 指定固定行和固定列的背景色指定固定行和固定列的背景色7.Cell运行时属性运行时属性数组元素。数组下标从数组元素。数组下标从0开
14、始。例如,开始。例如,StringGrid.Cell1,0表示第表示第2列、第列、第1行的元素行的元素 Delphi 程序设计【例例5.3】银行贷款按月还本银行贷款按月还本付息的计算。付息的计算。已知计算公式为:已知计算公式为:月还本金=贷款金额 (贷款年限*12月)本金余额=贷款金额 累计已还本金月还利息=贷款利率 本金余额月还本息=月还本金 月还利息 Delphi 程序设计5.6 树形视图树形视图TreeView1.5.6.1 树与结点树与结点2.5.6.2 使用使用TreeView控件控件3.5.6.3 结点类结点类TTreeNode Delphi 程序设计5.6.1 树与结点树与结点树
15、树TreeView中的数据项也称为结点,结中的数据项也称为结点,结点属于点属于TTreeNode类。换言之,类。换言之,TreeView控件是控件是TreeNode结点对象的容器。结点对象的容器。Delphi 程序设计5.6.2 使用使用TreeView控件控件1.TreeView的的Items属性用于存储结点属性用于存储结点存储TreeView中的结点及其结构设置结点的属性2.TreeView的主要属性的主要属性3.TreeView的主要方法的主要方法4.TreeView的主要事件的主要事件OnChange事件:当选中结点发生变化后触发。Delphi 程序设计5.6.3 结点类结点类TTre
16、eNode1.TTreeNode类的主要属性类的主要属性2.TreeView与与TreeNode的属性比较的属性比较TreeView.Items属性与TreeNode.Item属性比较TreeView.Items.Count属性与TreeNode.Count属性比较TreeView与TreeNode的Selected属性比较3.TTreeNode类的主要方法类的主要方法增加结点插入结点查找结点删除结点 Delphi 程序设计【例例5.4】切换显示系统图像。切换显示系统图像。1.界面设计界面设计2.窗体初始化窗体初始化 3.单击单击TreeView1结点时,切换图像结点时,切换图像 4.程序设计
17、说明程序设计说明 Delphi 程序设计5.7 列表视图列表视图ListView1.ListView的主要属性的主要属性ViewStyle属性Items属性LargeImages属性SmallImages属性Columns属性ColumnClick属性1.ListView的主要事件的主要事件OnDblClick事件OnSelectItem事件OnColumnClick事件2.ListView的主要方法的主要方法 Arrange方法:重新排列数据项3.ListView.Items的主要的主要属性和方法属性和方法 Delphi 程序设计【例例5.5】使用使用ListView控件。控件。1.界面设计界面设计2.窗体初始化窗体初始化 3.单击单击TreeView1结点时,为结点时,为ListView1动动态添加数据项态添加数据项 4.单选菜单项切换单选菜单项切换ListView1数据项的显示数据项的显示方式方式 Delphi 程序设计实验实验5 使用复杂组件使用复杂组件1.使用使用TrackBar、UpDown控件控件2.显示字符串变量的结构显示字符串变量的结构3.银行贷款多种还款方式的计算银行贷款多种还款方式的计算4.动态改变动态改变TreeView中结点中结点 Delphi 程序设计
限制150内