实验3常用组件属性、方法、事件和记事本程序开发.doc

实验 3 常用组件属性、方法、事件及记事本程序开发

一、实验目的

(1)熟悉在 Delphi 中建立项目的方法。
(2)掌握并熟练应用文本输入组件、按钮类组件、信息反馈组件、菜单组件
等几类组件的主要属性和组件的使用方法。

二、实验内容

【实验题 1】设计 1 个程序来处理日期的输入，分别输入年、月、日和星期
几，然后在 1 个 Memo 组件中总体显示。在本项目中，逐步增加使用到的组件，
最后完成预定功能，以此来演示常用组件的使用。
【实验题 2】按要求开发一个简单的记事本程序， 并实现记事本程序的剪切、
复制和粘贴等常用功能。

三、实验仪器、设备

1.计算机（Windows2000 以上的操作系统，2.4GHz 以上主频，512M 以上内
存） ；
2.Delphi 7.0（或更高版本）软件集成开发环境。

四、实验步骤

【实验题 1】
1.基本组件初步测试
(1)选择主菜单的 File®New®Application，新建一个应用程序。
(2)在窗体上加入 2 个 Label 组件，1 个 Edit 组件，1 个 Memo 组件和 2 个
Button 组件。窗体初步测试设计如图 4.1 所示，各组件的主要属性见表 4-1(在
Memo1 的 Lines 属性中输入 3 个空行)。
(3) 分 别 双 击 " 显 示 " 和 " 关 闭 " 按 钮 ， 在 TForm1.Button1Click 和
TForm1.Button2Click 事件处理器的编辑区中输入下列代码：
Procedure TForm1.Button1Click(Sender:TObject);
begin
memo1.Lines[0]:=edit1.Text;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin

close;
end;

表 4-1 初步测试各组件的主要属性

图 4.1 初步测试窗体设
(4)运行程序，在 Edit1 中输入 2002，并单击"显示"按钮，运行结果如图

图 4.2 初步测试运行结 图 4.3 "String List Editor"对话框
4.2 所示。
2.测试 ListBox 组件
在初步测试的基础上加入"月"输入输出部分。
(1)在窗体中再加入 1 个 ListBox 组件和 1 个 Label 组件。
(2)将 Label3 的 Caption 属性设置为"选择月份""FocusControl"属性为 ，
Memo1。选中 ListBox1 组件，单击 Object Inspector 窗口中"Items"后的"¼" ，打开"String List Editor"对话框，在其中输入 12 个月份的名称，如图 4.3
所示。改变后的窗体如图 4.4 所示。
(3)双击"显示"按钮，在 TForm1.Button1Click 事件处理器的编辑区原有
代码的基础上再增加下列代码：
if ListBox1.ItemIndex>=0 then
Memo1.Lines [1]:=ListBox1.Items [ListBox1.ItemIndex]

else
Memo1.Lines [1]:='Month has not selected';
(4)运行程序，在 Edit1 中输入 2006，并且在 ListBox1 中选中三月，单击

图 4.4 测试 ListBox 组件窗体设 图 4.5 测试 ListBox 组件运行结果
"显示"按钮，运行结果如图 4.5 所示。
3.测试 ComboBox 组件
利用 ComboBox 组件加入"天"输入、输出部分。
(1)在窗体中再加入 1 个 ComboBox 组件和 1 个 Label 组件。
(2)将 Label4 的 Caption 属性设置为"选择天""FocusControl"属性为 ，
ComboBox1。选中 ComboBox1 组件，单击 Object Inspector 窗口中"Items"后
的"¼" ，打开"String List Editor"对话框，如图 4.3 所示，在其中输入 1～
31，并将其 Text 属性设置为 1。改变后的窗体如图 4.6 所示。

图 4.6 测试 ComboBox 组件窗体设 图 4.7 测试 ComboBox 组件运行结

(3)双击"显示"按钮，在 TForm1.Button1Click 事件处理器的编辑区原有
代码的基础上再增加代码：Memo1.Lines[2]:=ComboBox1.Text;