射击小游戏2.txt

学习Delphi最好的教材。通过一个个简单而实用的实例

1.建一个文件夹"射击小游戏"，用于放程序。
2.新建一个程序。
3.保存(用Save All)
4.添加两个"几何"(Shape)控件(在控件栏的第二页"Additional"),
把第二个的形状(Shape属性)改为"圆的"(stCircle)
5.添加两个"定时器"(Timer)控件，分别让Shape1向右、Shape2向上运动，
即双击Timer1,添加事件，并添加代码
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Shape1.Left:=Shape1.Left+5;
end;
即双击Timer2,添加事件，并添加代码
procedure TForm1.Timer2Timer(Sender: TObject);
begin
  Shape2.Top:=Shape2.Top-5;
end;
6.改进Timer1的事件，让Shape1到达右边时回到左边
7.先让Timer2停止(把它的Enable属性)改为False
8.添加一个按钮(Button)控件，把它的标题改为"射击"，让Timer2启动。
9.改进Timer2的事件，让Shape2到达上边时回到下边，并停止
10."击中算法"：再改进Timer2的事件，当Shape2击中Shape1时，
Shape1和Shape2暂停，显示信息，然后回到下边，并停止

11.添加计时功能：
添加一个标签(Label)控件，把它的标题(Caption属性)改为"100"，
表示"游戏剩余时间"
修改Timer1的事件，减小"游戏剩余时间",当"游戏剩余时间"变为0时，游戏结束。
12.添加按钮"开始游戏"

13.向窗体(Form1)上添加一个标签(Label)控件，表示"成绩"，在击中的代码中添加代码，增加"得分"
14.进一步改进的设想：
①增加目标：不同的目标可以有不同的形状、大小、距离、运动速度，从而有不同的"得分"
②"子弹"在发出前可以左右移动