- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
应用设计与框架
第三章 应用程序的框架和设计;3.1 应用程序的基本结构;应用程序基本构成图示;3.2 开发应用程序前的系统设置 ;设置自动保存程序代码功能;2. 设置使用撤消操作;3. 设置使用开发包;1)未编译组件包的安装;2)已编译组件包的安装;(2) 设置组件包的搜索路径;3.3 项目文件 ;3.3.1 建立项目文件;3.3.2 项目文件的组成结构;(2)说明部分;(3) 执行部分;3.3.3 将单元文件加入或移出项目文件;从项目文件中移出单元文件:
单击Project→Remove from Project菜单
注意:
(1)没有任何单元文件的项目文件将编译成一个无任何功能应用程序。
(2)加入或移出单元文件还可通过使用工具栏上的快捷按钮来完成,如图所示。 ;3.3.4 设置项目编译环境;设置应用程序
在项目编译环境设置对话框中选择“Application”页(如图所示),在此口主要做如下四个设置:
标题(Title)
它应用程序最小化时在任务栏上显示的标题,其最大长度为255个字符。
帮助文件(Help file)
用于设置当激活帮助时,应用程序自动调用的帮助文件。
图标(Icon)
用于设置应用程序在程序管理器中或当程序被最小化时显示的图标。
目标文件扩展名(Target file extension)
用于设置编译生成的可执行文件的扩展名。
;3. 设置是否使用运行期包;4.设置项目文件存放路径。; 设置路径(Directories);3.3.5 项目中常用的文件;2. 窗体文件;本节要讲的内容;3. 资源文件;4. 项目选项和桌面设置文件;5. 备份文件;6. 包文件;3.4 项目文件的管理与优化;3.5 编译并运行项目; 3.6 项目中的Application对象;1. 属性及应用;常使用ExeName属性取应用程序所在的路径名
例如:
Label3.caption:=
ExtractFilePath(Application.ExeName) ;
其中:
ExtractFilePath函数用于返回字符串中的路径名。
另外,ExtractFileName返回字符串中的文件名。这两个函数用处很大,制作自动安装软件时要用到它。;2. Application对象的方法;4. ProcessMessages方法;MessageBox方法
用于打开一个标准的Windows提示信息框。具体使用方法参见第5章提示信息窗口一节。
例如:
if Application.MessageBox(提示信息,标题,
MB_OKCANCEL)=idok then
ShowMessage(ss);
Minimize方法
用于把应用程序的主窗口最小化。
Restore方法
用于把应用程序的恢复主窗口显示状态。;3. Application对象的事件;Application较常用的事件列表如下: ;例1:利用Application组件设计应用程序,要求在主窗体的Statusbar组件中显示鼠标所指组件的提示信息。 ;本次要讲内容;3.7 项目中的Screen对象;3.8 程序设计中的常用基本技巧;1. 使用资源文件;读取资源的常用方法:
取图片格式:image1.Picture.Bitmap.
LoadFromResourceName(hInstance, ‘图片名);
取图标格式:
Application.Icon.Handle:=LoadIcon(hInstance, ‘图标名称’);
其中hInstance表示包含资源文件的当前应用程序对象。
取光标格式:
Screen.Cursons[X]:=Loadcursor(hInstance,’光标名’);
Screen.Cursor :=X;
其中:X为正整数,因为默认光标取0到-22(即从crDefault到crSizeAll);2.修改屏幕分辨率;Var DevModeArray: TList; //显示模式信息结构列表
……
var
DevModeCount: Integer; //显示模式的个数
DevModeInfo: ^TDevMode; //定义一个指向显示模式的指针
begin
DevModeArray := TList.Create; //创建列表对象
DevModeCount := 0;
GetMem(DevModeInfo, SizeOf(TDevMode)); //分配内存
{枚举显示模式,并将获取的属性值其保存在到DevModeInfo 变量中}
while
文档评论(0)