Delphi程序设计基础第7章-工具栏和状态栏设计
Delphi PPT第7章 菜单设计

7.4.2 改变菜单的可见性
菜单的可见性是由菜单项的Visible属性决定的。 菜单的可见性是由菜单项的Visible属性决定的。 Visible属性决定的 该属性为布尔型属性,若属性值为True True, 该属性为布尔型属性,若属性值为True,则菜单可 见;否则,不可见。 否则,不可见。 例: NWindow.Visible:=Not NWindow.Visible;
第 7章
菜单设计
目
录
7.1 菜单设计概述 7.2 用主菜单设计器设计主菜单 7.3 使用菜单模板 7.4 动态设置菜单 7.5 快捷菜单设计
7.1 菜单设计概述
7.1.1 菜单的种类与结构
Windows应用程序界面中的菜单有3种类型:主 Windows应用程序界面中的菜单有3种类型: 应用程序界面中的菜单有 菜单、快捷菜单和控制菜单。 菜单、快捷菜单和控制菜单。 按照菜单项的功能,可以将菜单项分为3 按照菜单项的功能,可以将菜单项分为3种类 型: (1)命令菜单项 (2)状态设置菜单项 (3)打开对话框菜单项
6.定义菜单项的快捷键和热键 6.定义菜单项的快捷键和热键 Inspector窗口中的Caption属性的输 窗口中的Caption 在Object Inspector窗口中的Caption属性的输 入域中, 符号放到需要指定为热键的字母前面, 入域中,将“&”符号放到需要指定为热键的字母前面, 符号放到需要指定为热键的字母前面 该字母将被用下划线显示,运行时, Alt+热键字母 该字母将被用下划线显示,运行时,按Alt+热键字母 可以激活该菜单项。 可以激活该菜单项。 Inspector窗口中设置ShortCut属性来 窗口中设置ShortCut 在Object Inspector窗口中设置ShortCut属性来 完成快捷键的设置。 完成快捷键的设置。
Delphi_程序设计基础教程_习题答案(hzd)

Delphi 程序设计基础教程第 1 章Delphi 集成开发环境1. 填空题(1) Delphi 是一个集成开发环境,从 3程序设计、代码编译、调试,到最布程序的全部工作都可以在这个集成环境中完成。
(2) 在 Delphi 集成环境的主要组成部分中有许多功能强大的工具,如: 3主窗体、对象树状视图、对象观察器、窗体设计器、代码编辑器工具等。
(3) Delphi 集成开发环境的界面分为4个部分,分别是。
主窗口、窗体窗口、代码编辑窗口和对象查看器窗口(4) 对象查看器的功能是:编辑设置窗体、组件的属性,并为窗体、组件添加事件的响应处理过程(5) Delphi 主窗口由:标题栏、菜单栏、工具栏和组件板组成,它是打开其他窗口和退出D elphi 集成环境的主要界面。
2. 选择题D(1) 对象查看器由组成。
A. 标题栏、菜单栏、属性标签和事件标签B. 标题栏、菜单栏、对象选择器和事件标签C. 标题栏、菜单栏、对象选择器和属性标签D. 标题栏、对象选择器、属性标签和事件标签D(2) Delphi 用来管理用户开发的应用程序中的各个文件,有序地管理可以极大地提高应用程序开发的质量和速度。
A. 单元B. 组件C. 属性D. 项目B(3) 用来编写应用程序的代码。
A. 调试器窗口B. 代码编辑窗口C. 报表生成器窗口D. 数据库桌面窗口B(4) 代码编辑窗口分为左、右两部分:。
A. 左边是单元代码窗口,右边是单元浏览器窗口B. 左边是单元浏览器窗口,右边是单元代码窗口C. 左边是单元调试窗口,右边是单元浏览器窗口D. 左边是单元浏览器窗口,右边是单元调试窗口A(5) 属性选项卡即标签名为“Properties”的选项卡,用于设置当前组件的属性,属性选项卡是一个两列的表格,。
A. 左列是属性标题,右列是属性值B. 左列是组件名称,右列是事件名C. 左列是属性标题,右列是事件名D. 左列是组件名称,右列是属性值C(6) 事件选项卡即标签名为“Events”的选项卡,用于为当前组件添加各种响应事件(如单击、拖曳事件等),它随对象选择器中的所选组件而发生变化。
Delphi编程_界面设计

Font maxFontSize, MinFontSize Option
3.8.3.3 颜色对话框
3.8.3.4 查找对话框
属性 FindText
说明 在设计期用来预设一个待查的字符串,运行期 用来获得欲查的字符串 选项的集合 决定了对话框在屏幕上出现的位置
Options Position
3.8.3.4 查找对话框(续)
• wsMinimized • wsMaximized
3.4 控件的位置(续)
不同分辨率下的窗体位置设计
• 将窗体的Scaled属性设为True
当窗体的PixelsPerInch属性值不同于当前系统时, Delphi将自动改变窗体和窗体内的控件的尺寸。 当窗体的AutoScroll属性为true时,自动改变尺寸不适 用于窗体,只适用于窗体内的控件。
窗体的位置和大小
• • • • • • • • poDesigned poDefault poDefaulPosOnly poDefaulSizeOnly poScreenCenter poDesktopCenter poMainFormCenter poOwnerFormCenter
WindowState属性
界面设计
内容提要
用户界面样式 界面设计一般性原则 光标和帮助提示的用法 状态栏和工具栏等控件的用法 窗口的分割和分页 控件的悬停 多文档界面(MDI)
3.1 用户界面
用户界面是一个应用程序最重要的部分,它是最直 接的现实世界。 设计应用程序时,需要做出有关界面的若干决定。 设计用户界面之前,需要考虑应用程序的用途。 初学者的应用程序,它的设计要求简单明了,而针 对有经验用户可以复杂一些。 用户界面的设计是一个反复过程,很难在第一遍就 能提出一个完美的设计。
Delphi基础知识

Delphi是著名的Borland公司开发的可视化软件开发环境,自1995年问世以来,带来了程序设计中的一场重大变化。
Delphi作为第四代编程语言,具有简单、高效和功能强大等特点,这些特点使得它为广大程序开发者所青睐。
1.1 Delphi简介Delphi作为一种可视化的编程环境,提供了方便、快捷的Windows应用程序开发工具。
Delphi使用了Microsoft Windows图形用户界面的许多先进特性和设计思想,采用了可重复利用的完整的面向对象的程序语言(Object-Oriented Language)、是当今最快的编辑器、拥有领先的数据库技术。
对于广大的程序开发人员而言,使用Delphi开发应用软件,无疑会大大提高编程效率。
Delphi到今天已经历了7代产品的发展历程,每一代产品都是伴随Windows操作平台的升级而升级。
Borland公司从1983年推出Turbo Pascal 1.0开始,一直推动着Pascal向前发展,其间走过了艰苦创作的历程,最终完成了从DOS到Windows的质的飞跃。
进入Windows时代后,Borland公司在1995年推出了基于Windows平台的Delphi 1,成为Windows开发工具的新突破。
Delphi 1的出现,首次为使用Pascal语言的程序开发者提供了一个可视化开发环境。
其后,Borland公司以每年一个版本的速度对Delphi进行扩充功能和提高性能。
Delphi 2新增加的主要功能是对32位编程的支持。
除此之外,Delphi 2还增加了如数据模块等多种高效的数据重用功能。
随后出现的Delphi 3,不仅改进了集成开发环境(IDE)和“代码洞察”,还对其组件库进行了许多增强,并且完全支持ActiveX组件及其创建,大大巩固了Delphi作为Windows应用程序开发工具的地位。
对于Delphi 4,它提供了Object Pascal语言的扩展,使之更像C++。
利用Delphi全面控制Windows任务栏

利用Delphi全面控制Windows任务栏使用Windows95/NT/98操作系统的用户知道:Windows正常启动后,在电脑屏幕下方出现一块任务栏。
从系统功能角度而言,整个任务栏包括几个不同的子区域,从左至右依次是:开始按钮、应用程序切换区(Application Switch Bar)、任务栏通知区(Notification Area)以及任务栏时钟。
与其它Windows应用程序相同,任务栏程序()由几个不同的窗体组成,这些窗体是具有各自的窗口类名、显示方式等信息。
因此,只要得到有关窗口信息,即可通过编程全面控制Windows任务栏的不同区域。
编程思想任务栏窗体的窗口信息为:任务栏的窗口类名是:ShellTrayWnd。
开始按钮的窗口类名是:Button。
应用程序切换区的窗口类名是:ReBarWindow32。
任务栏通知区的窗口类名是:TrayNotifyWnd。
任务栏时钟的窗口类名是:TrayClockWClass。
调用FindWindow函数得到任务栏的窗口句柄。
调用FindWindowEx函数得到任务栏各子区域的窗口句柄。
根据窗口句柄,调用ShowWindow函数控制任务栏各区域显示或隐藏(show/hide);调用En ableWindow函数控制任务栏各区域有效或无效(enabled/disabled)。
编程方法在 IDE中新建工程Project1, Project1中包含Form1, 窗体如下图所示(2)定义窗口句柄数组:Wnd:array[0..4]过程代码得到Tray Bar 的窗口句柄;[0]:=FindWindow(′ShellTrayWnd′,ni 得到开始按钮的窗口句柄;[1]:=FindWindow(′ShellTrayWnd′,ni[1]:=FindWindowEx(Wnd[1]得到应用程序切换区的窗口句柄;[2]:=F indWindow(′ShellTrayWnd′,ni[2]]:=FindWindowEx(Wnd[2],HWND(0),′ReBarWindow32′,nil);得到任务栏通知区的窗口句柄;[3]:=FindWindow(′ShellTrayWnd′,ni [3]:=FindWindowEx(Wnd [3],HWND(0),′TrayNotifyWnd′,nil);得到任务栏时钟的窗口句柄;[4]:=FindWindow(′ShellTrayWnd′,n i [4]:=FindWindowEx(Wnd [4],HWND(0),′TrayNotifyWnd′,nil);[4]:=FindWindowEx(Wnd[4],HWND(0),′TrayCLockWClass′,nil ;过程代码EnableWindow(Wnd[0]EnableWindow(Wnd[1]EnableWindow(Wnd[2]EnableWindow(Wnd[3]EnableWindow(Wnd[4][0]EnableWindow(Wnd[1]EnableWindow(Wnd[2]EnableWindow(Wnd[3]EnableWindow(Wnd[4],过程代码ShowWindow(Wnd[0]ShowWindow(Wnd[1]ShowWindow(Wnd[2]ShowWindow(Wnd[3]ShowWindow(Wnd[4]ShowWindow(Wnd[0]ShowWindow(Wnd[1]ShowWindow(Wnd[2]ShowWindow(Wnd[3]ShowWindow(Wnd[4](6)FormClose事件代码//将Windows任务栏恢复到正常状态;(Sender:TObject; var Action:[i]wWindow(Wnd[i]按F9运行程序。
Delphi程序设计基础与上机指导演讲稿第07章

媒体播放器 - 用法
媒体播放器
界面定制 自动播放媒体 媒体类型
媒体播放器 - 进度控制
使用代码控制进度
Back、Pause、Rewind、Close、PauseOnly、 StartRecording、Eject、Play、Step、Next、 Previous、Stop、Open、Resume
菜单设计器 -主菜单
子菜单分组
子菜单按照功能分组 分组菜单之间的分隔符
菜单设计器 -主菜单
子菜单项的子菜单
多级菜单的设计方法 菜单的分级标准 低级菜单的设计 低级菜单的命名
菜单设计器 -主菜单
子菜单项的图标
使用ImageList组件 管理图片列表 为菜单项设置图标 具体的实例
设置工具栏的List属性 设置工具栏的ShowCaptions属性 设置菜单项与工具按钮的对应关系
工具栏 - 特殊用法
工具栏特殊用法
工具栏组件的Flat属性 工具栏组件的ShowCaptions属性 在工具栏组件上放置其他特殊组件 为工具按钮编写代码 具体实例程序
菜单功能 - 快捷菜单
如何设置快捷菜单 为快捷菜单编写代码 多个组件共享快捷菜单 快捷菜单菜单项状态的控制
菜单功能 - 菜单状态
使用可见状态
使用可见状态可以控制菜单的可见性 在设计时刻可以设置菜单项的初始状态 使用代码控制菜单的可见性:
procedure TfrmMain.pmuEditPopup(Sender: TObject); begin miCut.Visible := (retContent.SelLength > 0); miCopy.Visible := (retContent.SelLength > 0); miPaste.Visible := (Clipboard.AsText <> ''); end;
Delphi程序设计基础与上机指导演讲稿第07章

第七章 Win32 组件及系统功能调用
使用菜单 - 分类
两类菜单
主菜单和快捷菜单 不同的用法 不同的使用场合 相同点
菜单设计器 -主菜单
创建菜单组
操作步骤 菜单组的属性 菜单组的设计
菜单设计器 -主菜单
子菜单
新建子菜单项 新建多个子菜单项 菜单项的快捷键 菜单项的标题 菜单项的加速键 菜单项分组
状态栏 -单面板状态栏
特殊形状的窗口
打开菜单设计器窗口 为菜单项设置提示信息属性 设置菜单项的ShowHint属性 添加函数函数DisplayHint 为应用程序设置OnHint事件句柄
状态栏 - 多面板状态栏
多面板状态栏
设置多面板 设置面板的对齐和宽度等属性 设置状态栏的文字 通过代码设置属性 简单实例
工具栏和状态栏 - 思考
完善实例程序
列表视图框 - 设计
设计列表视图框
使用ViewStyle属性 创建多个列表项 为列表项设置图标 设置列表项的宽度、对齐方式 利用代码控制列表项 实例程序
列表视图框 - 编码
控制列表视图框
用代码添加和删除列表项 用代码改变列表的显示方式 比较完整的实例程序
系统组件 - 思考
完善实例程序
菜单功能 - 快捷菜单
如何设置快捷菜单 为快捷菜单编写代码 多个组件共享快捷菜单 快捷菜单菜单项状态的控制
菜单功能 - 菜单状态
使用可见状态
使用可见状态可以控制菜单的可见性 在设计时刻可以设置菜单项的初始状态 使用代码控制菜单的可见性:
procedure TfrmMain.pmuEditPopup(Sender: TObject); begin miCut.Visible := (retContent.SelLength > 0); miCopy.Visible := (retContent.SelLength > 0); miPaste.Visible := (Clipboard.AsText <> ''); end;
Delphi7中的常用组件的使用

图7-8 程序设计界面
图7-9 程序运行界面
7.1.4 TTimer时钟组件的使用
(2)TEdit组件的常用方法
SetFocus方法:该方法用于为编辑框设置焦点, 无参数。
Clear方法:该方法用来清除编辑框中的所有文 本,无参数。 ClearSelection方法:该方法用来清除编辑框中选 中的文本,无参数。 Undo方法:该方法用来撤消在编辑框中最近所 做的编辑操作。 ClearUndo方法:该方法用来清除“撤消”缓冲 区,从而不能对以前的操作做撤消操作,该方法无参 数。 SelectAll方法:该方法用来选中编辑框中的所 有文本。 CopyToClipboard方法:该方法用来把选中的文 本复制到剪贴板上,相当于复制操作。 CutToClipboard方法:该方法用来把选中的文 本移动到剪贴板上,相当于剪切操作。
(3)TListBox组件的常用事件
TListBox组件响应的主要事件有:OnClick、 OnKeyDown、OnKeyPress、OnKeyUp等。
2. TComboBox组件
(1)DropDownCount属性:该属性用来设 置组合框的列表框中所能显示的列表项的最 大数目,默认情况下,列表框中可以显示8个 列表项,当超过8个列表框时将显示出垂直滚 动条。 (2)Style属性:该属性用来设置或返回组 合框的风格。
图7-6 程序设计界面
图7-7 程序运行界面
7.1.3 列表类组件的使用
1.TListBox组件
(1)TListBox组件的常用属性
Items属性:该属性用来存放列表框中的列表项, 属于TStrings类。 Columns属性:该属性用来设置在列表框中显示列 表项的列数。 Count属性:该属性是一个运行属性,用来返回列 表框中列表项的数目。 MultiSelect属性:该属性用来设置能否在列表框中 选择多个列表项,即是否允许多选。
Delphi程序设计基础第7章-工具栏和状态栏设计

按钮分组时,如果遇到一个按钮的 Grouped属性不是True,或其Style属性不 是tbsCheck,或添加了一个分隔条,则分 组自动结束。
③ MenuItem属性。要使工具栏上的 按钮与相应的菜单命令项对应,应在 MenuItem属性中选择相应的菜单命令名称 (Name属性)。但是设置MenuItem属性 后,按钮将不再保留位图或需要重新设置 位图。
步骤:Βιβλιοθήκη (1)中添加1个ToolBar组件—— ToolBar1。
如果要求工具栏上的按钮是平的,只 有当鼠标停驻在按钮上才凸显,可将 ToolBar1的Flat属性设置为True。
如果要求工具栏显示边界,可根据需 要将EdgeBorders属性的4个子属性ebLeft (左边界)、ebTop(上边界)、ebRight (右边界)、ebBottom(底边界)设置为 True。
要使某按钮被选中时保持按下状态应 给该按钮的GroupIndex属性赋予一个大于 0的整数值;否则在松开按钮后,它也会自 动弹起。
Down属性:用于判断快捷按钮是否 处于被按下状态。当属性值为True时,按 钮处于按下状态;属性值为False时,按钮 处于弹起状态。
可以在设计时使某个快捷按钮的Down 属性设为True,这样在运行程序时,这个 按钮在一开始就处于按下状态,这就像将 单选按钮或复选框的Check属性设为True, 使它们在程序运行一开始就自动被选中一 样。
至于TCoolBand对象所对应的组件, 仍可单独进行编程。 在程序运行时,将鼠标指向 TCoolBand对象左侧的竖形条,拖曳鼠标 可调整对象位置。
如果要使ToolBar组件在CoolBar组件 中仍保持浮动特性,则应给CoolBar组件添 加OnDockOver事件,并编写如下代码:
Delphi程序设计电子教案第4章 菜单工具栏和状态栏精品文档

4.1.2 弹出式菜单PopupMenu组件
(5)将RichEdit组件PopupMenu属性改为 PopupMenu1。
Checked=False,则取消勾号或点号。
4.1.1 主菜单组件( MainMenu)
(6)单选菜单项组 将成组的菜单项的RadioItem属性全设为True, GroupIndex全设为相同值,如4,并且可设置其中一项的 Checked属性设为True,其余为False。 (7)菜单无效:Enabled=False。 (8)菜单项隐藏:Visible=False。
引例1:用菜单、工具栏、状态栏设计单文档案编辑器
图4.1 用菜单、工具栏、状态栏设计单文档案编辑器
引例2:用窗体与菜单设计多文档学生档案管理主界面
图4.2 学生档案管理系统主窗体设计
4.1 菜单
菜单是应用程序和用户间的交互方式,分为两种: 主菜单和弹出式菜单。 4.1.1 主菜单组件( MainMenu) 1.主菜单组件( MainMenu) (1)作用:设计Windows风格程序主菜单。 (2)位置:Standard页。 (3)使用方法:在窗体中添加MainMenu组件后,双击该 组件或在其上单击鼠标右键,在弹出式菜单中选择 MenuDesigner...命令,将打开菜单编辑器。
编辑(&E) 剪切 Ctrl+X 复制 Ctrl+C 粘贴 Ctrl+V
视图(&V) 页面 大纲 文档结构 - 工具
Delphi界面设计标准07.12

软件中心界面开发标准V1.0目录一、系统级定义 (2)1.系统整体构成 (2)2.起始画面 (2)3.登录 (3)4.菜单 (3)5.工具条 (5)6.热键 (6)7.提示信息 (7)8.右键定义 (7)9.颜色的搭配 (8)二、窗口级定义 (8)1.窗口内控件的组合划分 (8)2.维护类窗口: (11)3.查询窗口: (13)4.统计窗口: (16)5.对话窗口: (17)业务引导图: (18)初始化引导: (18)8.编码帮助窗口 (19)9.提示信息窗口: (20)10.向导式操作窗口 (20)11.标准树形维护窗口 (21)三、控件级定义 (21)1.多行编辑(Memo、DBMemo、RichEdit)、树状视图(TreeView)、列表视图(ListView)、数据网格(DBGrid): (21)2.按钮(Button、Bitbtn、SpeedButton): (22)3.文字: (23)4.分组框(GroupBox): (23)5.单行编辑(Edit、MaskEdit)、组合框(ComboBox) (24)6.图表(Graph): (24)7.复选框(CheckBox)、单选框(RadioButton)、单选按钮组(RadioGroup): 258.图片(Image、Shape): (25)9.标签(PageControl、TabControl): (25)10.状态栏(StatusBars): (26)11.窗口(Form):(add) (26)12.网格(StringGrid 、DrawGrid) (26)13.控件距离: (26)四、附录 (27)遵从原则:界面简洁朴素,控件摆放整齐,风格统一。
依据原则,本标准从如下三方面予以约定:一、系统级定义1.系统整体构成整个系统应包含如下几个方面:起始画面(splash Window)登录画面(Login Window)应用程序体(Application)业务流程图(Operation Guide)菜单A (Menu A)菜单B(Menu B)菜单N(Menu N)窗口A (Win A)窗口B(Win B)窗口N(Win N)退出画面(Exit Window)2.起始画面用于显示系统的名称、版权人等信息。
Delphi程序设计及实验指导(第二版)-第7章 对话框设计

7.1 通用对话框组件
3.打开图像文件对话框(TOpenPictureDialog)
打开图像文件对话框组件TOpenPictureDialog实际上与打开文件对话框 组件基本相同,只是用于选择以及打开图像文件,该对话框中包含了一 个矩形的预览区域,如果可以读取选中的文件,该文件将在预览区域显 示。该对话框支持的文件类型包括位图(.bmp)、图标文件(.ico)、 Windows图元文件(.wmf)以及增强型Windows图元文件(.emf)。 该对话框具有与TOpenDialog相同的属性集,但是默认情况下,Filter属 性对应于TOpenPictureDialoge组件支持的所有文件类型。
在Delphi 8 for .NET中提供了一些对话框组件,通过它们用户可以
访问Windows内部的通用对话框,例如字体对话框、文件对话框 等。另外,Windows将对话框分为两大类:模式对话框和无模式 对话框。
本章主要介绍一些通用对话框组件和这两类对话框的设用 掌握模式对话框和无模式对话框的概念和使用方法 掌握消息对话框的使用
Delphi用户界面设计

工具栏 组件栏中【Standard】 MainMenu组件 组件栏中【Standard】卡,取MainMenu组件 设计File 设计File ->Open Close 对这二个菜单设计工具栏 组件栏中【Standard】 Panel组件 形成长条, 组件, 组件栏中【Standard】卡,取Panel组件,形成长条,准 备作工具的承载面板,快捷工具按钮将建在其上。 备作工具的承载面板,快捷工具按钮将建在其上。它是容 器组件。 器组件。 alTop(顶端 顶端, Caption: 空,Name: ToolPanel,Align: alTop(顶端, 标题、菜单的下方) 标题、菜单的下方) 在组件栏中【Additional】 在组件栏中【Additional】卡,取两个组件 加在ToolPanel ToolPanel上 SpeedBotton 加在ToolPanel上。 SpeedBotton1的Glyph属性..进入Picture Editor对话框 SpeedBotton1的Glyph属性..进入Picture Editor对话框 属性..进入 Load……… Load
7.2 工具栏和状态栏
Windows的窗口,顶部大多有一工具栏,底部有一状态栏 Windows的窗口,顶部大多有一工具栏, 的窗口 1. 工具栏 ToolBar组件 它带有自己的许多按钮(ToolButton) 组件, ToolBar组件,它带有自己的许多按钮(ToolButton) Win32 卡 [例7-4] 文档编辑器工具栏 ImageList1组件有许多工具图片 ImageList1组件有许多工具图片 2. 状态栏 StatusBar组件 组件, StatusBar组件,它带有自己的许多面板 Win32 卡 [例7-5] 创建状态栏 组件也可建立工具栏和 用Panel组件也可建立工具栏和状态栏 组件也可建立工具栏和状态栏
Delphi 7教程7

7.1.2 按钮类组件(4)
在B1按钮的OnClick事件中添加如下代码,注意i变量在implementation 之前应该先给予定义: sb2.down:=true; var i:integer=0; i:=2; procedure TForm1.B1Click(Sender: end TObject); else if i=2 then begin begin if i=0 then sb3.Down:=true; begin i:=0; sb1.Down:=true; end i:=1; end; end
7.3.1 列表框组件(1)
procedure TForm1.FormCreate(Sender: TObject); begin form1.Caption:='组合框演示程序'; Listbox1.Sorted:=true; Listbox1.Font.Style:=[fsBold]; Listbox2.Sorted=[fsBold]; Listbox1.Items.Add('The C Programming'); Listbox1.Items.Add('Operating System'); Listbox1.Items.Add('Data Structure'); Listbox1.Items.Add('Application of Database '); Listbox1.Items.Add('Computer Network Principle'); Listbox1.Items.Add('Software Engineering'); end; 在Listbox1组件和Listbox2组件的Onclick事件中分别添加如下代码: procedure TForm1.ListBox1Click(Sender: TObject); var i:Integer; str,st:string; begin
Delphi第7章窗体和组件详解

组框
GroupBox它可包容RadioButton和CheckBox等组件,从设计角度来讲可 使用界面整洁,使包容在内的组件以整体面貌出现. 其使用界面如下: RadioGroup的主要属性: Columns:设置列数,默认 是1,最大可达16. ItemIndex:返回被子选择 项的索引.例: Case RadioGroup1.ItemIndex of 0:.. 1:… 2:…. End; Items:向框中输入单选 按钮的内容.
7.3 按钮类组件
7.3.4 TCheckBox组件 1.概述 TCheckBox复选框组件可以组成多项选择。用户可通 过单击一个选项来选择或取消选择该选项,在一个选择组 框中一次可做出多项选择。 2.主要属性 (1) Alignment属性 (2) AllowGrayed属性 (3) State属性 (4) Check属性 例:文字链接
计时器控件Timer的使用
Panel、 Scrollbar组件
Panel:可称之为窗格。可用于创建状态栏、工具栏、工具条等。 Scrollbar用来创建标准Windows滚动条,在很多时候滚动条是自 动加入的,并不需要添加代码来实现。 作用说明 Panel属性
Alox它提供了一系列供用户选择的选项列表. 其使用界面如下:
列表框的主要属性说明
属性 BorderStyle Canvas ExtEndedSelect MultiSelect Item Selected Sorted 数据类型 作用说明 用 于 设 置 列 表 框 的 边 框 样 式 ,bsNone 无 边 框,bsSingle有单细线边框. 用来返回列表框的画板 Blooean 用来设置是否允许使用Shift和Ctrl键同时进行多 项选择.当为True时使用如常. Blooean 设置为True时允许用户选择多项,但不连续. 用户可以通过它来操作列表框中项目的内容. 用来判断某项是否被选中. 用来设置列表框中各项是否要按照字母顺序排列.
6-用DELPHI在状态栏中显示进程条

用DELPHI在状态栏中显示进程条经常上网的朋友可能早就已经发现,在一些浏览器的底部会在某些情况下动态显示一个进程条,比如在显示网页的时候,如果时间比较长,就会出现一个一格一格前进的,用以提醒用户已经有多少数据被下传下来。
它不仅仅出现在浏览器中,还经常被用于下载软件中,比如现在最热门的BT下载软件,都使用了这一技术。
技术的改进源于工作的需要,现在编写网络软件那么流行,上面的小技巧应该是每个像我们这样的编程爱好者都需要的吧。
打开DELPHI,选择WIN32面板上的状态栏(StatusBar)组件,放到窗体(Form)上(图1),默认情况下状态栏组件将自动被摆放到窗体的底部(即Align属性被设为alBottom),同时该状态栏上初始为一个面板(Panel),为了使下面的表述清楚,我们来给这个状态栏加一个面板,操作步骤如下:1.双击状态栏组件打开面板编辑器(Panels editor)。
2.右击面板编辑器然后选择“Add”,添加一个面板。
3.选择第一个面板,在对象检查器(Object Inspector)中选中Text属性,写入“Progress:”。
4.关闭面板编辑器。
仅仅有一个状态栏当然不行,今天的主角应该是Progress(进程条)才对,现在我们把进程条摆放到窗体上来。
(图2)看到上面的图之后,有的急性子读者可能要问,怎么那个进程在状态条的上面,而不是在它的内部,就是在面板上呢?这个不是我要的结果嘛!别急,别急,下面的才是今天的压轴好戏,把进程条放到状态栏的面板上,还能让它动起来。
操作步骤如下:1.把ProgressBar的Parent属性设为StatusBar。
2.把StatusBar的第二块面板的Style属性改成“psOwnerDraw”,这里是解决问题的关键,当Style被设为psOwnerDraw之后,面板上就可以被放制其它的组件,实现的方法是在OnDrawPanel事件中编写代码,默认情况是被设为psText,这样就只能显示文本,就像第一块面板那样。
Delphi程序设计教程 第6章 制作工具栏及状态栏

6.5 使用工具栏组件设计 工具栏
6.5.1 工具栏组件 工具栏组件 在Win32页标签上,可用来管理和 安排可视的组件。使用工具栏组件具有下列优点: 在工具栏组件上按钮的大小和间距自动保持一致; 其它的控件也自动保持它们的相对位置和高度;若在 一行中按钮显示不下,可以自动折行显示。
1. 工具栏组件的属1.1面板组件的属性
1.BevelInner属性
BevelInner属性确定面板组件的内部斜面。
2.BevelOuter属性 BevelOuter属性确定面板组件的外部斜面。 3. BevelWidth属性 BevelWidth属性确定面板的内部斜面和外部斜面 的宽度(单为像素)。BevelInner属性确定内部斜面如 何出现;BevelOuter属性确定外部斜面如何出现。使 用这三个属性就可以改变面板的外观。
放到窗体上。双击窗体上的图标列表组件,打开图标 列表编辑框(如图6-3所示)。
在该对话框中添加工具栏按钮要使用的图标。 第2步:设置工具栏。 在窗体上添加工具栏按钮组件,并设置其属性。 第3步:设置工具栏按钮。 在工具栏组件上添加工具栏按钮,并设置其属性。 第4步:编写按钮事件的处理程序。 第5步:运行程序,查看设置后的效果。
(OnClick)与双击事件(OnDblClick)。
6.3 制作工具栏
在窗体上建立工具栏是很方便的。首先,在窗体 中加入面板,并且将其Align属性设置为alTop,这时 面板会保持它原来的高度,但可调整它的宽度至充满 整个窗体,甚至当改变窗体的大小时,面板也可自行
调整它的宽度。然后在其中加入快捷按钮或其它的组
该属性为布尔型,当为True时,工具栏上按钮的
边框由普通边框变为弹出式边框。平时按钮和工具栏
用Delphi7实现状态栏编程

用Delphi7实现状态栏编程
张海;李梦迪
【期刊名称】《现代计算机(专业版)》
【年(卷),期】2005(000)001
【摘要】本文通过对资源文件的建立及Windows API函数Shell_NotifyIcon的调用说明,比较详细地介绍了状态栏编程的方法.
【总页数】3页(P98-100)
【作者】张海;李梦迪
【作者单位】安徽财经大学计算机系,蚌埠,233041;暨南大学电子工程系,广
州,510632
【正文语种】中文
【中图分类】TP311
【相关文献】
1.Delphi7中DBGrid控件鼠标滚轮事件的实现方法 [J], 张弦弦;蒙庆芳;王平;康林
2.利用VB编程实现窗体状态栏中使用进度条 [J], 邱玉宝;郭昳
3.VC++中状态栏的动态编程 [J], 兰帆
4.BCB5中状态栏的编程 [J], 黄海云;骆名群
5.基于Delphi7的学校工资管理系统设计与实现 [J], 郑映璇
因版权原因,仅展示原文概要,查看原文内容请购买。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
Layout属性:用于设置快捷按钮表 面的文本和位图的显示风格。该属性有4种 可取值,blGlyphBottom位图位于文本的 下面;blGlyphLeft位图位于文本的左面; blGlyphRight位图位于文本的右面; blGlyphTop位图位于文本的上面。
GroupIndex属性:通过设置 GroupIndex属性,可以像使用复选框或单 选按钮那样来使用快捷按钮。
快捷按钮也可以灰显和隐藏,是在运 行时调整快捷按钮的Enabled属性和Visible 属性。其中,Enabled属性为False时,快 捷按钮灰显;Visible属性为False时,快捷 按钮隐藏。
7.2.2 使用工具栏组件
Delphi提供了新的工具栏(ToolBar) 组件,可用来直接创建工具栏。 用工具栏组件设计工具栏非常容易, 下面仍利用上面的例子来进行说明,用工 具栏组件进行设计。
(2)栏上添加快捷按钮(不是快捷 按钮组件)。
用鼠标右键单击工具栏组件,打开一 快捷菜单。如果要添加按钮,选择“New Button”命令;如果要添加分隔条,选择 “New Separator”命令。
(3)设置工具栏上按钮的属性。
在工具栏上添加的按钮属于 TtoolButton类型,每个按钮都可用对象查 看器设置属性。
7.2 工具栏设计
工具栏设计有两种方法: 第一种方法是用面板(Panel)组件和 快捷按钮(SpeedButton)组件以及组合框 等组件构成工具栏; 第二种方法是直接使用工具栏组件构 成工具栏。
7.2.1 用面板构成工具栏
面板是一个容器型的组件,在面板上 可以放置其他组件。所有放置在面板上的 组件都以面板为父组件。在工具栏设计中 一般将面板的Align属性设为alTop,使面 板与窗体的顶部对齐。
如果想使一组快捷按钮像一组单选按 钮那样,当按下某个按钮时,只有被选择 的按钮处于按下状态,而其他的快捷按钮 均处于弹起状态,就应将这一组快捷按钮 的GroupIndex属性赋予相同的值,当然该 值不能和其他组的GroupIndex属性值相冲 突。GroupIndex属性值不同的快捷按钮之 间相互不影响,就如同复选框一样。
① Style属性。TtoolButton对象有一个 基本属性——Style属性,该属性提供了以 下属性值。
tbsButton:表示标准按钮(默认)。 tbsCheck:表示具有复选功能或单 选功能的按钮。如果该按钮不与其他按钮 编组,则具有复选功能;如果与其他按钮 一起编组,则具有单选功能。
AllowAllUp属性:将某个快捷按钮 的AllowAllUp属性设为True时,则当单击 处于按下状态的该快捷按钮时,它可恢复 弹起状态。
当在设置某个快捷按钮的AllowAllUp 属性时,其他与该按钮的GroupIndex属性 值相同的快捷按钮的AllowAllUp属性也会 发生相同的变化。
步骤:
(1)中添加1个ToolBar组件—— ToolBar1。
如果要求工具栏上的按钮是平的,只 有当鼠标停驻在按钮上才凸显,可将 ToolBar1的Flat属性设置为True。
如果要求工具栏显示边界,可根据需 要将EdgeBorders属性的4个子属性ebLeft (左边界)、ebTop(上边界)、ebRight (右边界)、ebBottom(底边界)设置为 True。
按钮分组时,如果遇到一个按钮的 Grouped属性不是True,或其Style属性不 是tbsCheck,或添加了一个分隔条,则分 组自动结束。
③ MenuItem属性。要使工具栏上的 按钮与相应的菜单命令项对应,应在 MenuItem属性中选择相应的菜单命令名称 (Name属性)。但是设置MenuItem属性 后,按钮将不再保留位图或需要重新设置 位图。
但快捷按钮和位图按钮也有差别,两 者间最大差别在于功能上,快捷按钮兼具 位图按钮、复选框和单选按钮的功能,可 根据不同状态显示不同的位图。
快捷按钮的常用属性。 Caption属性:用于设置快捷按钮表 面所显示的文本。 Glyph属性:用于设置快捷按钮表 面的位图。
Hint属性:用于设置快捷按钮的提 示功能及在状态栏所显示的文本。当鼠标 指向按钮时,自动弹出所设置的功能提示。 当然首先要将窗体的ShowHint属性设为 True。
要使某按钮被选中时保持按下状态应 给该按钮的GroupIndex属性赋予一个大于 0的整数值;否则在松开按钮后,它也会自 动弹起。
Down属性:用于判断快捷按钮是否 处于被按下状态。当属性值为True时,按 钮处于按下状态;属性值为False时,按钮 处于弹起状态。
可以在设计时使某个快捷按钮的Down 属性设为True,这样在运行程序时,这个 按钮在一开始就处于按下状态,这就像将 单选按钮或复选框的Check属性设为True, 使它们在程序运行一开始就自动被选中一 样。
当然,工具栏还可包括其他组件,如 组合框(ComboBox)等。状态栏一般位 于窗口的底部,用于显示当前的状态及一 些提示信息。
7.1 快 捷 按 钮
ቤተ መጻሕፍቲ ባይዱ快捷按钮(SpeedButton)默认形状为 正方形,当然也可以改变它的形状和大小。 快捷按钮和位图按钮有相似之处,在按钮 的表面可以同时放置位图和文本,也可以 给按钮设置功能提示。
tbsDevider:表示一条竖线型分隔条。 tbsDropDown:表示凹陷式按钮, 但需要使用其他组件进行支持。 tbsSeparator:表示空格型分隔条。
② Grouped属性。要使一组按钮具有 单选功能,通常要给工具栏上的相邻按钮 分组,将组中每个TtoolButton按钮的 Grouped属性设置为True,这些按钮必须 是相邻的。
第7章 工具栏和状态栏设计
7.1
快捷按钮
7.2
工具栏设计
7.3
状态栏设计
目前大部分Windows应用程序中都含 有工具栏和状态栏。工具栏一般位于窗口 的上部,可由面板(Panel)组件和若干个 快捷按钮组成,也可直接用工具栏 (ToolBar)组件创建。一般每个快捷按钮 都是代表一个常用的命令。