简单Delphi程序设计
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.编译运行程序