DELPHI讲课.docVIP

第一个程序 Delphi与Word的比较 1.它们都有新建、打开、保存、关闭一个文档(程序) 2.刚打开Word时，有一个空白文档，如果关掉它，可以新建一个空白文档； 刚打开Delphi时，有一个空白程序，不同的是， Word文档只有一个文件，一个Delphi程序至少有3个文件(界面、代码、工程) 3.保存Delphi程序时，用Save All(全部保存，第4个按钮，而不是第3个) 4.建Delphi程序时，先要建一个文件夹，把它的多个文件放在一起。 5.关闭Delphi程序时，用Close All(关闭全部文件) 6.打开一个Delphi程序时，点.dpr文件 练习一 1.建一个文件夹，用于放程序。 2.新建一个程序。 3.保存(用Save All) 4.运行 5.直接运行.exe文件 6.把.exe拷到其他地方运行 7.关闭当前的程序(用Close All) 练习二 1.打开一个程序，点.dpr文件 2.修改标题和颜色，保存(Save All)。 3.运行 4.直接运行.exe文件 5.把.exe拷到其他地方运行 6.关闭当前的程序(用Close All) 移动 1.建一个文件夹，用于放程序。 2.新建一个程序。 3.保存(用Save All)到该文件夹 4.添加4个按钮(Button)控件，把它们的标题(Caption)属性分别改为向上、向下、向左、向右 5.双击按钮，添加事件，并添加代码 procedure TForm1.Button1Click(Sender: TObject); begin Form1.Top:=Form1.Top-5; end; 按钮事件 从控件工具栏找到按钮控件，点一下，然后在窗体上点一下，按钮就会放到窗体上 两个状态：编程状态与运行状态 编程状态按钮要按两下，生成一个函数表示按钮事件 运行状态按一下 编程状态--运行状态:按上面工具栏的绿三角 运行状态--编程状态:关闭运行程序窗口 改变标题： 在生成的函数中添加代码： procedure TForm1.Button1Click(Sender: TObject); begin form1.Caption:=...; end; Form1.Caption表示Form1的Caption属性，输入.的时候就会提示 把按钮的标题改成改变标题:选择按钮（左边显示按钮的属性），在左边的工具栏中的Caption属性输入改变标题。 鼠标移动-自动 1.建一个文件夹，用于放程序。 2.新建一个程序。 3.保存(用Save All)到该文件夹 4.添加定时器(Timer)控件 5.双击它添加事件，并添加代码 6.添加一个标签(Label)控件，把它的标题(Caption)改为向上 7.添加4个按钮(Button)控件，把它们的标题(Caption)属性分别改为 向上、向下、向左、向右 8.双击按钮，添加事件，并添加代码 procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption:=向上; end; 鼠标移动控件-自动 1.建一个文件夹鼠标移动控件，用于放程序。 2.新建一个程序。 3.保存(用Save All)到该文件夹 4.向窗体(Form1)添加定时器(Timer)控件(点上方的控件工具栏的第四页(System) 的定时器(Timer)控件，再在窗体的空白处点一下) 5.双击它添加事件，并添加代码 procedure TForm1.Timer1Timer(Sender: TObject); begin if Label1.Caption=向上 then Shape1.Top:=Shape1.Top-5; end; 6.添加一个标签(Label)控件，把它的标题(Caption)改为向上 7.添加一个几何(Shape)控件 8.添加4个按钮(Button)控件，把它们的标题(Caption)属性分别改为 向上、向下、向左、向右 9.双击按钮，添加事件，并添加代码 procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption:=向上; end; 射击小游戏 1.建一个文件夹，用于放程序。 2.新建一个程序。 3.保存(用Save All) 4.添加两个几何(Shape)控件(在控件栏的第二页Additional), 把第二个的形状(Shape属性)改为圆的(stCircle) 5.添加两个定时器(Timer)控件，分别让Shape1向右、Shape2向上运动， 即双击Timer1,添加事件，并添加代码 procedure TForm1.Timer1Timer(Sender: TObj