实验一：熟悉Delphi7.0集成开发环境.docVIP

PAGE PAGE 7 中国计量学院 实验报告 实验课程： 数据库应用 实验日期： 2010.3.19 实验名称： 熟悉Delphi7.0集成开发环境 班级： 08信管2班 学号： 0800702219 姓 名： 魏颖雯 实验报告成绩： 教师签名： 指导教师评语： 实验目的 通过本次实验，熟悉集成开发环境，了解Delphi的主菜单、工具栏、控件面板、对象观察器、主窗体和代码编辑器的使用方法。 通过实验，理解Delphi可视化编程的基本概念，掌握Delphi工程和窗体的建立过程，熟悉Delphi工程文件、单元文件和窗体文件的结构。能够建立简单的工程、窗 实验环境 Delphi7 实验内容和步骤 启动Delphi7程序，熟悉其可视化集成开发环境，包括主菜单、工具栏、组件面板、对象观察器、主窗体、代码编辑器、窗体设计器； 可视化集成开发环境 进入Delphi的主菜单，了解各菜单的名称和功能。 观察组件栏中各组件选项卡中的组件名称。 学习工程建立的标准过程。 新建一个工程，默认工程文件名为project1.dpr； 新建一个窗体，并观察：默认窗体名（即窗体name属性）为Form1，默认单元文件名为Unit1.pas。在窗口中显示“欢迎学习DELPHI”； 保存。窗体FORM1的单元文件名为first.pas，工程另存为mypro.dpr。 运行。生成一个可执行文件，观察可执行文件名。 其中使用到的组件为label1和button1分别设置它们的属性，使得label1.caption为“欢迎学习DELPHI”，button1.caption为“退出” 。 5．编制一个程序，实现如下图所示效果： 来自standard面板来自system面板来自system面板 来自standard面板 来自system面板 来自system面板 需要设置的属性如下： Memo1要设置lines属性，以便于增加歌词内容，设置font字体属性，改变字体大小和颜色。 MediaPlayer1要设置autoopen属性为true，设置filename属性以便于找到要播放的文件。 Timer2要设置enabeled属性为false。 参考代码如下： procedure TForm1.Timer1Timer(Sender: TObject); begin Memo1.Left :=Memo1.Left-100; //实现Memo1向左移动 if Memo1.Left-Memo1.Width then //条件控制 begin Timer1.Enabled :=false; Timer2.Enabled :=true; end; end; procedure TForm1.Timer2Timer(Sender: TObject); begin Memo1.Left :=Memo1.Left+100; //实现Memo1向右移动 if Memo1.Leftform1.Width then //条件控制 begin Timer2.Enabled :=false; Timer1.Enabled :=true; end; end; 运行结果： 实验结论 通过本次实验，我了解了delphi的集成开发环境。对Delphi的主菜单，工具栏，控件等有了一些初步了解。能够运用空间制作出某些效果，也对Delphi产生了浓厚的兴趣。