Delphi程序设计基础与上机指导讲义
合集下载
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
日复一日的努力只为成就美好的明天 。08:54:5108:5 4:5108:54Mon day , January 04, 2021
安全放在第一位,防微杜渐。21.1.421 .1.408:54:5108 :54:51J anuary 4, 2021
加强自身建设,增强个人的休养。202 1年1月 4日上 午8时54 分21.1. 421.1.4
爱情,亲情,友情,让人无法割舍。2 1.1.420 21年1 月4日星 期一8 时54分5 1秒21. 1.4
谢谢大家!
列表视图框 - 编码
控制列表视图框
用代码添加和删除列表项 用代码改变列表的显示方式 比较完整的实例程序
树状列表框 - 列表
控制树状列表
AddChildObject AddChild AddChildFirst AddChildObjectFirst
递归方法
树状列表框 - 思考
科学,你是国力的灵魂;同时又是社 会发展 的标志 。上午8 时54分 51秒上 午8时5 4分08:54:5121 .1.4
每天都是美好的一天,新的一天开启 。21.1.4 21.1.40 8:5408:54:510 8:54:51 Jan-21
相信命运,让自己成长,慢慢的长大 。2021 年1月4 日星期 一8时54 分51秒 Monday , January 04, 2021
菜单功能 - 菜单状态
使用可用状态
通过Enable属性控制菜单项是否可用 在设计时刻可以初始化菜单项的状态 使用代码可以控制菜单项的状态:
procedure TfrmMain.pmuEditPopup(Sender: TObject); begin { miCut.Visible := (retContent.SelLength > 0); miCopy.Visible := (retContent.SelLength > 0); miPaste.Visible := (Clipboard.AsText <> ''); } miCut.Enabled := (retContent.SelLength > 0); miCopy.Enabled := (retContent.SelLength > 0); miPaste.Enabled := (Clipboard.AsText <> ''); end;
简单的实例 procedure TfrmMain.miFileExitClick(Sender:
TObject); begin Close; end;
菜单功能 - 编写代码
切换主菜单
根据具体内容改变主菜单 通过代码实现
procedure TfrmMain.cbxUseMainMenuClick(Sender: TObject); begin if(cbxUseMainMenu.Checked)then Menu := mmuMain else Menu := nil; end;
系统组件 - 思考
完善实例程序
生活中的辛苦阻挠不了我对生活的热 爱。21. 1.421.1. 4Mond ay , January 04, 2021
人生得意须尽欢,莫使金樽空对月。0 8:54:51 08:54:5 108:54 1/4/202 1 8:54:51 AM
做一枚螺丝钉,那里需要那里上。21. 1.408:5 4:5108:54Jan-2 14-Jan -21
精益求精,追求卓越,因为相信而伟 大。202 1年1月 4日星 期一上 午8时54 分51秒 08:54:5 121.1.4
让自己更加强大,更加专业,这才能 让自己 更好。2 021年1 月上午 8时54 分21.1.4 08:54J anuary 4, 2021
这些年的努力就为了得到相应的回报 。2021 年1月4 日星期 一8时54 分51秒 08:54:5 14 January 2021
菜单设计器 -主菜单
子菜单分组
子菜单按照功能分组 分组菜单之间的分隔符
菜单设计器 -主菜单
子菜单项的子菜单
多级菜单的设计方法 菜单的分级标准 低级菜单的设计 低级菜单的命名
菜单设计器 -主菜单
子菜单项的图标
使用ImageList组件 管理图片列表 为菜单项设置图标 具体的实例
菜单功能 - 快捷菜单
如何设置快捷菜单 为快捷菜单编写代码 多个组件共享快捷菜单 快捷菜单菜单项状态的控制
菜单功能 - 菜单状态
使用可见状态
使用可见状态可以控制菜单的可见性 在设计时刻可以设置菜单项的初始状态 使用代码控制菜单的可见性:
procedure TfrmMain.pmuEditPopup(Sender: TObject); begin miCut.Visible := (retContent.SelLength > 0); miCopy.Visible := (retContent.SelLength > 0); miPaste.Visible := (Clipboard.AsText <> ''); end;
工具栏 - 特殊用法
工具栏特殊用法
工具栏组件的Flat属性 工具栏组件的ShowCaptions属性 在工具栏组件上放置其他特殊组件 为工具按钮编写代码 具体实例程序
状态栏 -单面板状态栏
特殊形状的窗口
打开菜单设计器窗口 为菜单项设置提示信息属性 设置菜单项的ShowHint属性 添加函数函数DisplayHint 为应用程序设置OnHint事件句柄
状态栏 - 多面板状态栏
多面板状态栏
设置多面板 设置面板的对齐和宽度等属性栏和状态栏 - 思考
完善实例程序
列表视图框 - 设计
设计列表视图框
使用ViewStyle属性 创建多个列表项 为列表项设置图标 设置列表项的宽度、对齐方式 利用代码控制列表项 实例程序
菜单设计器 -主菜单
使用菜单状态
多个菜单项的分组控制 菜单的Checked状态 使用代码控制状态的变换 具体的设计实例
菜单设计器 -快捷菜单
快捷菜单
没有多个菜单组 设计快捷菜单的菜单项 快捷菜单的子菜单项分组 加速键的设置
菜单功能 - 编写代码
为菜单OnClick事件句柄编写代码
完善文件列表框
定时触发器 - 用法
定时触发器
设置定时间隔 设置定时器的状态 使用定时触发器显示时间 定时触发器的计时功能
媒体播放器 - 用法
媒体播放器
界面定制 自动播放媒体 媒体类型
媒体播放器 - 进度控制
使用代码控制进度
Back、Pause、Rewind、Close、PauseOnly、 StartRecording、Eject、Play、Step、Next、 Previous、Stop、Open、Resume
Delphi 程序设计基础与上机指导
第七章 Win32 组件及系统功能调用
使用菜单 - 分类
两类菜单
主菜单和快捷菜单 不同的用法 不同的使用场合 相同点
菜单设计器 -主菜单
创建菜单组
操作步骤 菜单组的属性 菜单组的设计
菜单设计器 -主菜单
子菜单
新建子菜单项 新建多个子菜单项 菜单项的快捷键 菜单项的标题 菜单项的加速键 菜单项分组
菜单功能 - 思考
除了使用菜单设计器菜单,所有菜单都可 以通过代码动态的创建!
工具栏 - 设计
设计工具栏
选择CoolBar组件 添加工具栏组件 设置工具栏的ImageList属性 创建工具按钮 设置工具按钮的属性 设置工具按钮的图标
工具栏 - 使用
工具栏与菜单的结合
设置工具栏的List属性 设置工具栏的ShowCaptions属性 设置菜单项与工具按钮的对应关系