菜鸟学编程 第1篇 做一个简单的小游戏

麻虎子

<>晕！这也叫游戏？？？？？按纽躲鼠标？</P>

朱春海

诱惑我犯罪

西门小祥

我靠```````顶

烂香蕉

<>&nbsp;</P><>&nbsp;</P><>unit Unit1;</P><>interface</P><>uses<BR>&nbsp; Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<BR>&nbsp; Dialogs, StdCtrls, jpeg, ExtCtrls;</P><>type<BR>&nbsp; TForm1 = class(TForm)<BR>&nbsp;&nbsp;&nbsp; Button1: TButton;<BR>&nbsp;&nbsp;&nbsp; Button2: TButton;<BR>&nbsp;&nbsp;&nbsp; Image1: TImage;<BR>&nbsp;&nbsp;&nbsp; procedure Button2Click(Sender: TObject);<BR>&nbsp;&nbsp;&nbsp; procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Y: Integer);<BR>&nbsp;&nbsp;&nbsp; procedure Button1Click(Sender: TObject);<BR>&nbsp; private<BR>&nbsp;&nbsp;&nbsp; { Private declarations }<BR>&nbsp; public<BR>&nbsp;&nbsp;&nbsp; { Public declarations }<BR>&nbsp; end;</P><>var<BR>&nbsp; Form1: TForm1;</P><>implementation</P><>{$R *.dfm}</P><>procedure TForm1.Button2Click(Sender: TObject);<BR>begin<BR>&nbsp; showmessage(&#39;偶也喜欢你，我们一起做爱吧！&#39;);<BR>end;</P><P>procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,<BR>&nbsp; Y: Integer);<BR>begin<BR>if&nbsp; Button1.Left&lt;=200<BR>&nbsp;&nbsp; then&nbsp; Button1.Left:=Button1.Left+50<BR>&nbsp;&nbsp; else&nbsp; Button1.Left:=0;</P><P>&nbsp; if&nbsp; Button1.Top&lt;=100<BR>&nbsp;&nbsp; then&nbsp; Button1.Top:=Button1.Top+25<BR>&nbsp;&nbsp; else&nbsp; Button1.Top:=0;</P><P>end;</P><P>procedure TForm1.Button1Click(Sender: TObject);<BR>begin<BR>&nbsp; showmessage(&#39;5555~~好心当作驴肝肺，偶要烧香拜佛煮咒你永远都没有性高潮！&#39;);<BR>end;</P><P>end.</P><P><BR>演示：</P><P><A href="http://www.badbanana.net/Downloads/80000.rar">HTTP://www.badbanana.net/Downloads/80000.rar</A></P><P>&nbsp;</P><P>菜鸟学编程 第1篇 做一个简单的小游戏</P><P>动画教程：</P><P><A href="http://www.badbanana.net/Downloads/80000JC.rar">HTTP://www.badbanana.net/Downloads/80000JC.rar</A></P>