赛车游戏

xieyuan0553

1. Delphi代码如下：
   
2. 窗体初始化
   
3. unit Unit16;
   
4. interface
   
5. uses
   
6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   
7. Dialogs, ExtCtrls, StdCtrls;
   
8. type
   
9. TForm1 = class(TForm)
   
10. Image1: TImage;
    
11. Image2: TImage;
    
12. Timer1: TTimer;
    
13. Label1: TLabel;
    
14. Image3: TImage;
    
15. Timer2: TTimer;
    
16. Label2: TLabel;
    
17. procedure Timer1Timer(Sender: TObject);
    
18. procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
    
19. Y: Integer);
    
20. procedure FormClick(Sender: TObject);
    
21. procedure Label1Click(Sender: TObject);
    
22. procedure Timer2Timer(Sender: TObject);
    
23. procedure FormKeyDown(Sender: TObject; var Key: Word;
    
24. Shift: TShiftState);
    
25. procedure Label2Click(Sender: TObject);
    
26. private
    
27. { Private declarations }
    
28. public
    
29. { Public declarations }
    
30. end;
    
31. var
    
32. Form1: TForm1;
    
33. implementation
    
34. uses Unit2, Unit17;
    
35. {$R *.dfm}
    
36. 定时器控件
    
37. 把Timer1的Interval属性改为10
    
38. procedure TForm1.Timer1Timer(Sender: TObject);
    
39. begin
    
40. if image2.Left=0 then
    
41. begin
    
42. image2.Left:=900;
    
43. image2.Top:=Random(245)+1;
    
44. end
    
45. else
    
46. image2.Left:=image2.Left-10;
    
47. if image2.Left <=image1.Left +86 then
    
48. if image2.Top >image1.Top-66 then
    
49. if image2.Top <image1.Top +66 then
    
50. begin
    
51. timer1.Enabled:=false;
    
52. timer2.Enabled:=false;
    
53. showmessage('GAME OVER!');
    
54. image1.Visible:=false;
    
55. image2.Visible:=false;
    
56. image3.Visible:=false;
    
57. label1.Visible:=true;
    
58. label2.Visible:=true;
    
59. end
    
60. end;
    
61. 窗体（鼠标移动）
    
62. procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
    
63. var
    
64. x1,y1:integer;
    
65. begin
    
66. x1:=X;
    
67. y1:=Y;
    
68. image1.Top:=y1;
    
69. end;
    
70. 窗体（单击）
    
71. procedure TForm1.FormClick(Sender: TObject);
    
72. begin
    
73. image1.Visible:=true;
    
74. image2.Visible:=true;
    
75. image3.Visible:=true;
    
76. timer1.Enabled:=true;
    
77. timer2.Enabled:=true;
    
78. label1.Visible:=false;
    
79. label2.Visible:=false;
    
80. end;
    
81. 标签
    
82. procedure TForm1.Label1Click(Sender: TObject);
    
83. begin
    
84. timer1.Enabled:=true;
    
85. timer2.Enabled:=true;
    
86. label1.Visible:=false;
    
87. label2.Visible:=false;
    
88. end;
    
89. 定时器控件
    
90. 把Timer2的Interval属性改为29
    
91. procedure TForm1.Timer2Timer(Sender: TObject);
    
92. begin
    
93. if image3.Left<=0 then
    
94. begin
    
95. image3.Left:=900;
    
96. image3.Top:=Random(245)+1;
    
97. end
    
98. else
    
99. image3.Left:=image3.Left-10;
    
100. if image3.Left <=image1.Left +86 then
     
101. if image3.Top >image1.Top-66 then
     
102. if image3.Top <image1.Top +66 then
     
103. begin
     
104. timer1.Enabled:=false;
     
105. timer2.Enabled:=false;
     
106. showmessage('GAME OVER!');
     
107. image1.Visible:=false;
     
108. image2.Visible:=false;
     
109. image3.Visible:=false;
     
110. label1.Visible:=true;
     
111. label2.Visible:=true;
     
112. end
     
113. end;
     
114. 窗体（按键）
     
115. procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
     
116. begin
     
117. if key=vk_f1 then
     
118. begin
     
119. form2.ShowModal;
     
120. end
     
121. end;
     
122. 标签
     
123. procedure TForm1.Label2Click(Sender: TObject);
     
124. begin
     
125. timer1.Enabled:=true;
     
126. timer2.Enabled:=true;
     
127. label1.Visible:=false;
     
128. end;
     
129. end.

复制代码

1012662902

强烈支持楼主ing……

yangjiadong

运行的了吗、？强烈支持楼主ing……

黄志伟

表示只会Java路过

大黑鱼

强烈支持楼主ing……

raofeizhou

真是难得给力的帖子啊。

A2395191495

不错 学习下