Delphi上手教程

所需积分/C币:10 2018-02-28 10:56:38 91.54MB PDF
8
收藏 收藏
举报

适合Delphi初学者学习和练习,能让初学者更快入门,了解Delphi语言
日景 第1章界面设计 本章为你准备了7个编程实例,内容包括制作屏保程序、给Memo组件加框、制作相框效果的 窗体、制作桌面小精灵以及自做漂亮的VCD播放器等等。这些实例的制作效果都非常突出,简单 易学,更重要的是相信你能从中学到不少编程技巧。 实例1制作屏幕保护程序 实例2给Memo组件的显示区域加边框 6实例3制作相框效果的窗体 9实例4实现带阴影效果的画框 12实例5制作几何形状的窗体 16实例6制作桌面小精灵 19实例7制作一个漂亮的VCD播放器 第2章系统设置 A, 本章准备了10个实例供大家学习,内容涉及如何通过程序获取器信息、文件日期信息、获取 Windows系统中相关目录的位置,实现目录的复制、删除和移动,改换壁纸和启动关闭屏保,隐藏 任务栏和桌面图标,格式化磁盘等等。你可以根据自己对 Delphi掌握的程度,有选择性的学习 23实例1驱动器信息轻松获取 26实例2获取文件日期信息 29实例3获取 Windows、 System和Temp目录 31实例4打造文件管理器 34实例5如何实现目录的复制、删除和移动 37实例6改换壁纸和启动、关闭屏保 40实例7让你的任务栏和桌面图标都“藏”起来 43实例8重启或关闭计算机就这么简单 46实例9制作实用的托盘程序 50实例10在编程中实现磁盘格式化 第3章硬件访问与控制 在本章的10个实例中,你可以学到硬件访问与控制各个方面的编程技巧。从运用各种技术获 取系统的硬件信息,到对这些硬件进行一些属性设定,涉及到基本硬件操作的诸多方面,例如: 从注册表中读取各类文件信息,读取内存状态信息,获取CPU信息,获取和设置显示器模式等等 53实例1从注册表中读取各类硬件信息 57实例2通过AP|函数读取电源电池信息 59实例3动态监视内存状态巧实现 63实例4获取CPU相关信息 67实例5获取和设置显示器模式 70实例6用 De l phi实现硬盘和光驱的操作 74实例7获取显卡和声音媒体设备信息 78实例8键盘的监测、控制和模拟 81实例9打造超强鼠标 85实例10两招搞定端口信息获取 第4章控件应用 Delphi之所以受到广大程序员的青睐,其中有一个重要的原因就是它拥有丰富多彩、功能强大的 第三方控件。本章主要讲述通过 TShellTree view、 TShellCombo Box、 TShelllist view三个控件实现类 似 Windows系统资源管理器功能,利用文件分割器控件 division,aip打造自己的文件分割器等等方面 的内容 92实例1“我的资源管理器”自己做 94实例2打造自己的文件分割器 97实例3制作带背景图的标签 99实例4编写一个滚动提示控件 103实例5在控件中添加消息处理过程 105实例6自制邮件发送客户端 108实例7将系统中的cM接口包装为控件 109实例8实现LsTB0X控件折行显示的妙招 第5章文件操作 统计中英文字数、播放ash、在 Delphi中操作 Excel、删除或移动正在操作的文件、实现文件拖 放功能等等,都是我们在用机过程中时常面对的问题,本章就通过 Delphi编程技术,实现相关功能 在这里,你不仅仅可以学到基本的编程技巧,还提供了许多宝贵的经验和大家分享。 2 112实例1实现中英文字数统计超简单 114实例2将SWF文件转换成EXE文件 117实例3将EXE文件转换成SWF文件你也能行 119实例4在 De I phi中操作Exce 121实例5灵活使用N文件编程 124实例6删除或移动正在使用的文件 127实例7实现应用程序的文件拖放功能 129实例8从木马程序看文件捆绑技术 第6章图形图像多媒体 图像的效果处理对于许多行业,例如设计、建筑、GS等等来说都是非常重要的,例如艺术字效 果、水彩效果、失真效果、彩色电视杋雪花效果、浮雕效果、渐变色效果等等,让人看起来非常美 观,本章主要就向你讲述通过 Delphi编程技术实现特殊效果的内容。 134实例1在 De I phi中实现艺术字效果 138实例2用点像素法实现图像特效效果 141实例3利用 Scanline属性实现特殊图像效果 145实例4用 Fill Rect实现的浮雕和编织带效果 147实例5制作具有“换肤”功能的个性相册 151实例6通过编程实现 Photoshop图层效果 157实例7渐变色和动画矩形效果教你做 160实例8制作动画个性屏保 164实例9在 ntr Web中显示图片数据 168实例10 Mapob jects实现世界地图系统 第7章数据库应用 本章同样为大家准备了10个实例,从运用原始技术动态创建表格,到高级的 IntraWeb技术、Rave 数据库报表以及决策图的实现,包括了数据库开发过程中的一些主要问题,我们都为你进行了详细 的讲解和分析,让你在学习之后真正做到举一反三。 173实例1用 Session操纵BDE 176实例2基于sL语句的短消息管理系统 180实例3文本和数据记录的转换 183实例4手动创建数据表格 3 186实例5设计主从关系表格 188实例6制作决策图效果 192实例7实现多媒体数据库 196实例8在Rave中显示数据表格中的内容 198实例9利用 ntr aWeb技术实现数据操作 201实例10利用AD0控件从 SQL Server2000中读取数据 第8章网络与通讯 互联网的普及给我们的生活带了越来越多的方便和惊喜,通过网络,我们可以轻而易举地实现 软件升级、信息发送、软件下載续传、网络文件传输等功能,其实这些看似“不一般”的技术,通 过 Delphi编程技术都可以实现,不信的话就翻开本章内容看看吧! 205实例1制作升级精灵程序 212实例2断点续传软件巧制作 219实例3实现邮件群发功能 223实例4编写P2P文件传输程序 228实例5用 De i phi实现网络信使服务 231实例6轻松实现网址连接状态检测 233实例7从互联网校对系统时间 第9章趣味游戏 “好的游戏=优秀的游戏设计思想*精美的游戏素材+可靠的程序代码”,这是做出一个好游戏 的基本规则。本章就从思想、素材、程序这三个方面向你讲述 Delphi游戏编程的技术。从游戏入门 基础知识,到运用 OpenGL技术开发游戏,基本上涉及到游戏开发过程中的一些关键问题和技术。 236实例1制作键盘打字练习软件 240实例2制作流行的拼图游戏 247实例3乒乓球游戏制作 252实例4实现小狗过桥游戏 255实例5打地鼠游戏(界面实现) 260实例6打地鼠游戏(主体部分) 265实例7扫雷游戏(界面实现) 270实例8扫雷游戏(主体部分) 275实例9用0 penGL实现旋转星球 279实例10用0penL实现星空闪电图 4 第1章 界设计 本章要点: 本章为你准备了7个编程实例,内容包括制作屏保程序、给Memo组件加 框、制作相框效果的窗体、制作桌面小精灵以及自做漂亮的VCD播放器等等 这些实例的制作效果都非常突出,简单易学,更重要的是相信你能从中学到不 少编程技巧。 实例1 制作屏幕保护程序 【程序说明】 用户在使用电脑的时候,经常会暂时离开电脑去处理其他事情,一般情况下可以使用加密 屏幕保护程序来防止其他无关人员使用电脑。那么,怎样在程序中实现屏幕保护程序呢?本例 将为你讲述这个问题。程序运行效果如图所示 诸输入屏磊保护程球忠码 【编程思路】 让窗体覆盖整个屏幕,隐去鼠标的显示,就完成了一个屏幕保护程序的雏形了,再在鼠标 的 OnMouse move和 On Click事件上加上事件恢复对鼠标的显示和启动密码验证对话框,在填入 1肺 80 编程易精 倒上手口 elhi7编程 正确的密码后关闭整个程序,一个完整的屏保程序就完成了。 Delphi中的函数 Show Cursor是专 门用来控制鼠标的隐藏和显示,该函数定义如下 int Show Cursor( bOoL sHow∥/鼠标显示参数 ); 当参数 sHow取值为 False时,鼠标自动隐藏;当参数 sHow取值为True时,鼠标自动 显示 【编程步骤】 (1)新建一个应用程序,将窗体的 FormStyle属性和 Windowstate属性分别设置为 fsStay OnTop 和 WSMaximize d,将 Color属性设置为 clAck (2)在窗体上加入1个 Image组件和1个 Timer组件,将 Image组件的Aign属性和 Center属 性分别设置为 client和Tme;将 Timer组件的 Interva属性设置为3000 (3)新建一个窗体,在窗体上加入1个Edit组件和2个 Button组件,将Edit组件的Text属 性设置为空,将2个Butn组件的 Caption属性分别设置为“确定”和“取消”。 【代码解析】 主窗体代码: unit Main Unit; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs ExtCtrls, JPEG type TMain Form class(TForm) Image1: IMage: Timer1: TTimer procedure TimerITimer(Sender: TObject); procedure Form Create(Sender: TObject) procedure Imagel Click(Sender: TObject) procedure FormKey Press(Sender: TObject; var Key: Char) private I Private declarations I Public declarations end: var MainForm: TMain Form; AppPath: String; Integer; const s Count=3;∥设置屏保图片总数 2 hapter 早面设计 implementation uses Pwformu ISR* DFM) procedure TMain Form. Timer Timer( Sender;: TObject);∥设置屏保图片循环 begin if i< sCount then begin 1:=1+ Imagel Picture. LoadFrom File( AppPath+ IntToStr(i)+'jpg);∥读取屏保图片 d else i:=0; procedure TMain Form Form Create(Sender: TObject); gin AppPath: ExtractFilePath(ParamStr(O)) Imagel Picture. LoadFrom File(AppPath+3.jpg) Show Cursor( False);∥隐藏鼠标 end: procedure TMain Form Image I Click(Sender: TObject); begin PWForm. Show: Show CurSor(True);∥显示鼠标 nd procedure TMain Form FormKey Press(Sender: TObject; var Key: Char) begin PWForm Show Show CurSor(True) procedure TMain Form FormKey Down(Sender: TObject; var Key: Word Shift: TShiftState); gin if(Key=VKF4)and([sAIt= shift)then∥屏蔽At+F4键让程序不能被关闭 Key: =0 end: end 【程序小结】 本例主要是依靠控制鼠标隐藏和显示的函数 Show Cursor来实现屏幕保护功能,该函数只是 众多鼠标控制函数中的一个,你甚至还可以通过其他鼠标函数定位鼠标,或者指定鼠标的移动 范围,有兴趣的朋友可以深入研究一下。 3 80 编程易精 例上手eLph7编 实例2 给Memo组件的显示区域加边框 【程序说明】 使用过 Delphi的Memo组件的人都知道,在Memo组件的 Lines属性中加入的文字都是从左 边界开始显示的,在文字太多的时候就显得不太美观。如何给Memo组件设置一个像网页那样 的边界呢?本例将为你解决这个问题。程序运行效果如图所示 Memo1MeolMemo1MemolMemolMemolMemolMemolMemolMemolMemolMem meMo IMemolMemo1MemolMenolMemolMemo1MemolMemo1MemolMemolMemolMe molEs o1Meno1MemolMemolMemo1MemolMemo1 左边距: 上边距,20 复原 【编程思路】 其实要实现这一功能非常简单,只要通过API函数 Sendmessage向系统发送消息 EM GETRECT得到组件的矩形边界,修改后再通过 SendMessage向系统发送消息 EM SETRECT 设置组件的矩形边界就可以了。消息 EM GETRECT和 EM SETRECT的定义分别如下: EM GETRECT WParam=0∥必须为0 IParam=( LPARAM)( LPRECT)lprc;∥指向RECT结构体的指针 EM SETRECT w Param=0;∥必须为0 IParam=( LPARAM( LPRECT)lprc∥指向RECT结构体的指针 编程步骤】 (1)新建一个应用程序,在窗体上添加1个Memo组件、2个 Label组件、2个Edit组件和2 个 Button组件。 (2)如效果图所示在Memo组件的的 Lines属性中添加字符,将2个 Label组件的 Caption属 性分别设置为“左边距”和“上边距”,将2个 Button组件的 Caption属性分别设置为“变更”

...展开详情
试读 127P Delphi上手教程
立即下载
限时抽奖 低至0.43元/次
身份认证后 购VIP低至7折
一个资源只可评论一次,评论内容不能少于5个字
您会向同学/朋友/同事推荐我们的CSDN下载吗?
谢谢参与!您的真实评价是我们改进的动力~
  • 分享小兵

关注 私信
上传资源赚钱or赚积分
最新推荐
Delphi上手教程 10积分/C币 立即下载
1/127
Delphi上手教程第1页
Delphi上手教程第2页
Delphi上手教程第3页
Delphi上手教程第4页
Delphi上手教程第5页
Delphi上手教程第6页
Delphi上手教程第7页
Delphi上手教程第8页
Delphi上手教程第9页
Delphi上手教程第10页
Delphi上手教程第11页
Delphi上手教程第12页
Delphi上手教程第13页
Delphi上手教程第14页
Delphi上手教程第15页
Delphi上手教程第16页
Delphi上手教程第17页
Delphi上手教程第18页
Delphi上手教程第19页
Delphi上手教程第20页

试读结束, 可继续阅读

10积分/C币 立即下载