第一個delphi程序_來自>

來自<<Delphi 程序设计基础教程>>

 

在 Delphi 中创建应用程序的过程一般如下。

第 1 步：创建新的项目和窗体。 执行【File】|【New】|【Application】命令，创建新的项目和窗体。

第 2 步：在窗体中加入组件。在组件板中选定需要的组件，然后在窗体的适当位置单击。接着可以对窗体和窗体上 的组件进行适当的安排。第 3 步：设置窗体和组件的属性。 根据程序需求在对象编辑器中设置组件的属性，包括组件的大小、颜色、位置、标题文字、特征等。这些属性也可以通过程序动态地设置和修改。

第 4 步：编写事件处理程序。在对象编辑器中选择指定组件的事件项，进入代码编辑窗口，编写程序代码，以实现 相应功能。

第 5 步：保存项目文件和单元文件。使用【File】菜单中的【Save All】命令，保存项目、单元等文件。

第 6 步：编译、调试和运行程序。 使用【Run】菜单中的【Run】命令，运行应用程序。若出现问题或程序的运行结果达不到预期的结果，还可以使用 Delphi 提供的调试器来调试和修改，直到满意为止。【

 

例 1.1】 本例介绍如何在 Delphi 集成开发环境中编写 Windows 应用程序。程序实现的 功能是：在应用程序的窗体中显示时钟。具体实现过程如下：

1) 进入 Delphi 开发环境可以通过 Windows 的【开始】菜单来运行 Delphi，如：【开始】|【程序】|【Borland Delphi 7】|【Delphi 7】。

2) 创建项目为了集中管理各个文件，可以创建一个“项目”进行统一管理。 Ⅰ) 创建项目文件夹为了单独存放与项目有关的文件，先创建一个文件夹。可以通过 Windows 环境中的资 源管理器来实现，如：C:/Mypro。 Ⅱ) 创建一个新的项目在 Delphi 集成开发环境中，单击【File】|【New】|【Application】命令，创建一个新 的应用程序，Delphi 会自动创建项目文件及相关的其他文件。 Ⅲ) 保存项目及相关文件使用【File】菜单中的【Save All】命令将保存与项目有关的所有文件。此时首先会弹 出【Save Unit1 As】对话框，定位到目录“C:/Mypro”后，输入文件名“Unit1_1”，单击【确定】按钮，接着会弹出【Save Project1 As】对话框。这时目录自动定位到“C:/Mypro” 中，输入文件名“Project1_1”，单击【确定】按钮。

3) 向窗体中添加组件为了在 Form1 窗体中显示文字，可以添加一个标签(Label)组件。标签组件是组件板的 Standard 组件页中的第 4 个组件。可以将鼠标指针移动到 Standard 组件页中的第 4 个组件 上，稍停一下后会出现一个内容显示为“Label”的提示窗口；单击鼠标左键，然后移动鼠 标指针到 Form1 窗体中再单击左键，标签组件就被添加到窗体中了。为了使每隔 1 秒钟将显示的内容改变一次，采用同样的方法，向 Form1 窗体中添加一 个定时器(Timer)组件。定时器组件是 System 组件页中的第 1 个组件。在程序运行的过程中，定时器组件并不在窗体中显示，所以可以将定时器组件随便放 置在窗体中的某个位置。为了可以关闭显示，添加一个按钮(Button)组件，按钮组件在 Standard 组件页中的第 7 个位置，采用同样方法将其添加到窗体中。

4) 设置组件属性在 Form1 窗体中选中标签组件，然后在对象编辑器窗口中对标签组件的主要属性进行 设置具体见表 1-3。 表 1-3 例 1.1 中标签组件的属性设置 属 性 属 性 值 Alignment taCenter AutoSize False Caption (空串，删除原 Label1) Font 黑体，粗体，初号 Name Label1 注意：改变字体属性时，可以单击组合框右面的省略号按钮，在弹出的【字体】对话框中设置字体、大小和颜色等。也可以展开 Font 属性，对子属性进行设置。 设置好组件的属性后。可以改变窗体的大小：将鼠标指针移到窗体的边缘，鼠标的形 状会变成双箭头模式，然后按下鼠标左键进行拖动就可以改变窗体的大小。然后，再在 Form1 窗体中选中按钮组件，在对象编辑器窗口中将按钮的 Caption 属性 设置为“开/关”。定制好的窗体如图 1.13(a)所示。

 5) 添加代码 (1) 在 Form1 窗体中选中定时器组件，然后选中对象编辑器窗口中的事件(Events)页， 为定时器组件添加 OnTimer 事件的处理过程。只要双击 OnTimer 栏右边的组合框，系统就 会自动添加该事件的处理过程，并自动定位到相应的代码处。在 TForm1.Timer1Timer 处理过程中添加以下代码。 procedure TForm1.Timer1Timer(Sender: TObject); var // 变量说明 DateTime : TDateTime; str : string; begin DateTime := Time; // 取得当前日期和时间 str := TimeToStr(DateTime); // 转换时间成字符串 Label1.Caption := str; // 显示时间字符 { 注意：这些语句也可直接用下列语句代替: label1.Caption := TimeToStr(Time); } end; (2) 同样，在 Form1 窗体中选中按钮组件，然后选中对象编辑器窗口中的 Events 页， 为按钮组件添加单击(OnClick)事件的处理过程(即运行时，单击按钮所要运行的功能程序)。 双击 OnClick 栏右边的组合框，进入代码编辑器，给按钮组件添加单击事件。 procedure TForm1.Button1Click(Sender: TObject); begin Label1.Visible:=not Label1.Visible; end;

 6) 运行程序 通过【Run】菜单的【Run】命令运行程序。如果程序没有编译和链接，则程序在运行前系统会自动进行编译和链接。运行结果如图 1.13(b)所示。 (a) (b) 图 1.13 显示时钟例程 说明：例 1.1 通过定时器每秒执行一次TForm1.Timer1Timer处理过程，在该处理过程中， 通过“Label1.Caption := str;”语句将组件Label1 的Caption属性改变了，也就是将窗体 中显示的内容每秒改变了一次。而按钮的单击事件是通过“Label1.Visible:=not Label1.Visible;”语句将Label1 组件的Visible属性在True和False中间切换，以达到开关 目的。程序中“//”和“{}”符号代表注释文本。