计
Delphi 7编写应用程序包括新建应用程序、设 置窗体属性、添加组件、设置组件属性、添加 事件、编写事件响应代码、编译运行等 1.新建应用程序
启动Delphi 7,选择【File】|【New】| 【Application】菜单,新建一个应用程序。 2.设置窗体属性 单击【Object Inspector】,在对象观察器中打 开【Properties】选项卡,单击Caption属性右侧, 输入窗体的新标题“窗口”。 3.向窗体中添加组件 单击Standard
选项卡上的Button组件,将鼠标指 向窗体中的任意位置(标题栏除外),单击鼠标, 即可把Button1组件放入窗体中。或者直接双击 组件面板上的Button组件,也可以在窗体中添加 一个Button1组件。
4.设置组件属性 选中组件,单击Object Inspector的标题栏以激 活对象观察器,并选择Properties选项卡。在对 象观察器中单击要设置的属性,进行属性设置。 5.添加事件 选中要添加事件的组件,激活对象观察器,并选 择Event选项卡,在对象观察器中单击要添加的 事件,在其右侧输入事件的响应函数名称,然后 回车即可。 6.编写事件响应代码
选定要编写事件响应代码的组件 ,打开Event选 项卡,双击要编写响应代码的事件右侧的空白部 分,进入代码编辑窗口。
procedure TForm1.Button1Click(Sender: TObject); //单
击放大按钮,窗口将放大
begin form1.Height:=form1.Height+10; //窗口高度10 form1.Width:=form1.Width+10; //窗口宽度10 end; procedure TForm1.Button2Click(Sender: TObject); //
单击缩小按钮,窗口将缩小
Begin form1.Height:=form1.Height-10; //窗口高度减10
form1.Width:=form1.Width-10; //窗口宽度减10 end; procedure TForm1.Button3Click(Sender: TObject); //关
闭窗口
begin close; end; //退出
7.编译运行程序
图1-6 例程运行界面
1.4 Delphi上机步骤
1.启动程序 2.添加组件 在窗体设计器中添加如图1-7所示的各组件。
图1-7 窗体布局图
3.设置组件属性 4.编写代码 组件属性设置完成后,编写如下代码:
?
procedure TForm1.Edit1Change(Sender: TObject); //编辑框1中的
内容改变时的事件
? ? ? ? ? ? ? ? ? ?
var stringlength:integer; //定义整型变量,记录编辑框1中字符的个数 begin stringlength:=edit1.GetTextLen; //得到编辑框1中字符个数 edit2.Text:=inttostr(stringlength); //编辑框2显示编辑框1中字符个数 end; procedure TForm1.Button1Click(Sender: TObject); //关闭窗口 begin close; end;
5.保存工程 保存工程分为保存单元文件和保存项目文件两步。 第一步是保存单元文件,单击工具栏上的Save 按钮,将打开Save Unit1 As窗口,默认的单元 文件名是“Unit1.pas”,以“.pas”为扩展名,单 元文件名根据需要可以另取 。 第二步是保存项目文件,单击工具栏上Save Project1 As按钮,默认的项目文件名是 “Project1.dpr”,工程文件名根据需要可以另取 以“.dpr”为扩展名
6.运行工程 保存工程结束后即可运行工程
图1-10 工程运行界面图
小结
在本章中,主要介绍了Delphi的产生和发展, Delphi的特点,使用Delphi进行程序设计的一些 基础知识。本章的重点是Delphi的开发环境和开 发方法,通过实例介绍了Delphi的程序设计和上 机操作的一般步骤。