【精品】《Delphi程序设计》实验指导书

《【精品】《Delphi程序设计》实验指导书》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、实验一Delphi程序设计初识实验目的•了解Delphi7.0的集成开发环境（IDE）•初步掌握在DelphiIDE中开发应用程序的一般步骤•初步掌握窗体设计器、对象观察器、代码编辑器的使用方法实验示例［例1T］设计如下图所示的Windows应用程序。程序运行后，窗口空白显示，鼠标点击窗口，则显示如图文字，同时“退出”按钮激活；单击“退出”按钮，则关闭窗口，结束运行。退出

2、实现步骤：1.新建Application项目启动Delphi7.0后，IDE已自动创建并初始化了一个Application项HProject1。第1步可省略。

3、否则,通过执行菜单［File1f［New］-*［Application］项创建,或单击工具栏上的Newitems快捷钮K3打开的对话框来创建Application□IDE口动初始化一个Windows应用程序项冃。2.在窗体上布置组件1）用鼠标拖动的方法，适当调整窗体的人小；2）在standard组件板上用鼠标点击（Button组件），然后在窗体适当位置单击，将自动创建按钮Button1；3）在standardgfl件板上用鼠标点击IA（Label件），然示在窗体适当位置单击，将自动创建标签Labello3.设置窗体和组件属性1）

4、通过单击窗体空白处，或在对象观察器（ObjectInspector）窗Fl的对彖•列表框中选中Forml,然后在属性页（Properties）中点击选中Caption属性,在其后输入“Myfirstformv属性值；2）同样方法选中Label1组件对象，将其Caption属性值设为"我的第一个Windows应用程序”，Font（字体）属性设为“宋体”、五号、深蓝色，Visible（可视的）属性设为False；3）选中Button1组件对象,设置其Caption属性为"退出”,Enabled（激活的）属性设为Falseo1.编写程

5、序代码1）选中Form1,在对彖观察器窗口的事件（Events）页中选中OnClick（鼠标点击）事件，鼠标双击其后的编辑处，IDE则自动初始化了一个TForm1的OnClick事件处理过程（见代码编辑器窗口），转到代码编辑器窗口，在对应事件处理过程小编写如下代码：procedureTForml•FormClick（Sender:TObject）;beginlabell.Visible:=true;buttonl•Enabled:=true;end;2）选中Button1,同样方法，编写其OnClick事件处理程序代码如下：pr

6、ocedureTForml•ButtonlClick（Sender:TObject）;beginforml•Close;end;2.保存项目和程序单元执行菜单【File】f【SaveProjectAs...］项，在打开的保存项冃文件对话框中，选择项H保存位置，编辑项冃文件名，确认保存项H（扩展名dpr）；然后执行菜单【File］-［SaveAs...］项，在打开的对话框中保存单元文件（扩展名pas）o或执行菜单【File】一［SaveAll］项，或单击SaveAll快捷钮目，可连续完成上述的项日和程序单元保存操作。其它文件，如窗

7、体文件（dfm）、配置文件（cfg、dof）、资源文件（res）等，系统在用户保存项H和单元的同时口动保存。3.编译和执行单击Run快捷钮>,或按F9键，或执行菜单【Run】一【Run】项，Delphi系统将编译、链接和执行编写好的程序项1=1。4.关闭项目执行菜单【File】-［CloseAll］项，将关闭程序项冃。5.打开已有项目。执行菜单【File】-*［OpenProject...］项，或单击Open快捷钮02・，可打开已有程序项目。［例1-2］创建和设计一个简单的Console（控制台）应用程序。实现步骤：1.新建Co

8、nsoleApplication项目首先执行菜单【File】一［CloseAll］关闭当前项冃，再执行菜单［File］-【New】一【Others...］项，或单击工具栏上的Newitems快捷钮¥3打开的对话框來仓U建ConsoleApplicationoIDE口动初始化一个控制台应用程序项冃。2.在代码编辑器窗口编写如下程序代码：programProject1_2;{$APPTYPECONSOLE}usesSysUtiIs;beginwritein(1Thisismyfirstconsoleapplication!1);re

9、adln;end.1.保存程序项H执行菜单［File］-单击SaveAll快捷钮［SaveProjectAs...］项，或执行菜单［File］-*【SaveAll］项,或在打开的保存项目文件对话框屮，选择项1=1保存位置，编辑项1=1文件名，确认保存项1=1（扩