第一个程序

 

让编程改变世界

Change the world by program

---

 

Delphi简介：聪明的人使用Delphi, 真正的程序员使用C++！

  Delphi是著名的Borland公司开发的可视化软件开发环境，自1995年问世以来，带来了程序设计中的一场重大变化。 Delphi作为第四代编程语言，具有简单、高效和功能强大等特点，这些特点使得它为广大程序开发者所青睐。 Delphi的易用性和稳定性更是高手追求的境界！另外值得说的是，Delphi的VCL架构是开源的。  

鱼C故事会

 

话说有一天，VB、VC、DELPHI……乘坐火车出游，半路火车头坏了，大家很着急！ 这时候，爱出风头的Mr.VB说：“我来为大家造一个火车头吧！”说干就干，Mr.VB在树林中砍伐木头，一阵叮叮当当…… 一个新的火车头出现了。Mr.VB让大家上车，然后大喊：“开车喽——”结果，没有反应。 Mr.VB经过多次实验后，突然恍然大悟：“哎呀，这个车头没有安装我的运行库！……运行库我可没有随身带着！！！……” Mr.VC生气了，“不象话，看我的！”于是Mr.VC又开始忙活起来。干了一会，Mr.VC停下来，说：“怎么炼铁？我记不清了，需要查查资料。” Mr.VC拿出MSDN开始……，接着又干，一会又停下来，“我还要查查资料……” 天色已晚，Mr.DELPHI终于沉不住气了，他开始在坏火车头里翻找，结果发现有许多“组件”和“控件”还可以利用，于是Mr.DELPHI开始组装，没有多久，一个“新的”火车头出现了…… 汽笛长鸣，火车拉着沮丧的Mr.VB、仍在沉思的Mr.VC……又上路了！！

  以上的一个不算能哄小孩子睡觉的小故事，说明了很多赤裸裸的真理； 其实有很多朋友选择易语言来进行学习，由于易语言有中文界面还相当容易使用。 但小甲鱼在这里可以很负责任地告诉大家，Delphi 在易用性和易学性方面绝对不会让大家失望。 最后，不管你们信不信，反正我是信了！  

Delphi7的下载和安装

  安装演示视频！  

Delphi7的主窗口

  [caption id="attachment_539" align="aligncenter" width="300"] Delphi7的主窗口[/caption]  

有如下3种方法向窗体添加组件

1. 单击组件板上的组件，然后在窗体的适当位置单击并拖动鼠标。
2. 直接双击组件，可将该组件添加到窗体的中心位置。
3. 按住Shift键不放……

 

Delphi7的窗体设计器

  [caption id="attachment_540" align="aligncenter" width="300"] Delphi7的窗体设计器[/caption]    

对象观察器（Object Inspector）

  [caption id="attachment_541" align="aligncenter" width="300"] 对象观察器（Object Inspector）[/caption]   [caption id="attachment_542" align="aligncenter" width="300"] 代码编辑器和代码浏览器[/caption]  

第一个程序

  编写一个显示鱼C欢迎词的小程序：单击【显示】按钮，将在窗体上显示欢迎词，单击【关闭】按钮，将关闭应用程序。 程序演示图： [caption id="attachment_543" align="aligncenter" width="300"] delphi教程 | 第一个程序[/caption]   小甲鱼仿佛听到一位美眉的呼唤：亲，快给大家演示下。  

Delphi7程序的组成

 

单元文件（结合刚刚的例子）

标志性语句——unit。

接口部分——interface 和implementation 之间的部分。

implementation 之后是实现部分。

 

项目文件

标志性语句——program。

说明体部分——uses 与 begin之间的部分，不包括begin语句。

程序体部分——begin和end之间的部分。

 

典型实例实践

 

编程要求：

编写一个程序完成如下功能：程序运行时，单击【显示】按钮，编辑框（TEdit组件）显示“爱编程，更爱鱼C ^_^”，字体大小为16号，字体颜色为绿色。 单击【清除】按钮，编辑框显示的文本被清除。 程序演示：Follow me！！（课件及源代码下载）  

编程提示：

欲使TEdit组件显示某个文本，如“hello”，只要给TEdit组件的Text属性赋值为“hello”即可，实现的语句为：Edit1.Text:=\'hello\';。 TEdit组件还有字体属性（包括大小，颜色等），按照同样的方法，设置TEdit 组件的字体颜色为绿色，字体大小为16号即可。 为了使TEdit组件显示的文本被清除，只要给它的Text属性值赋值为空字符串即可。  

课后上机练习

 

上鸡练习：文本及悬停文字的显示

要求：当鼠标停留在“显示”按钮上的时候，弹出悬停提示“显示鱼C欢迎词” 演示：Follow me（课件及源代码下载）  

要点提示：

在对象查看器中把组件的ShowHint 属性值设置为True，在对象查看器中把组件的Hint属性值设置为要显示的悬停文本。 [buy] 获得所有教学视频、课件、源代码等资源打包 [/buy] [Downlink href=\'http://urlxf.qq.com/?jYvqaiJ\']视频下载[/Downlink]