兴化400生活网

标题: 菜鸟学编程第1篇做一个简单的小游戏 [打印本页]

作者: 烂香蕉 时间: 2005-4-26 17:58
标题: 菜鸟学编程第1篇做一个简单的小游戏
<

> <

>unit Unit1;<

>interface<

>uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, jpeg, ExtCtrls;<

>type   TForm1 = class(TForm)     Button1: TButton;     Button2: TButton;     Image1: TImage;     procedure Button2Click(Sender: TObject);     procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,       Y: Integer);     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;<

>var   Form1: TForm1;<

>implementation<

>{$R *.dfm}<

>procedure TForm1.Button2Click(Sender: TObject); begin   showmessage('偶也喜欢你，我们一起做爱吧！'); end;procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,   Y: Integer); begin if  Button1.Left<=200    then  Button1.Left:=Button1.Left+50    else  Button1.Left:=0;  if  Button1.Top<=100    then  Button1.Top:=Button1.Top+25    else  Button1.Top:=0;end;procedure TForm1.Button1Click(Sender: TObject); begin   showmessage('5555~~好心当作驴肝肺，偶要烧香拜佛煮咒你永远都没有性高潮！'); end;end. 演示：<A href="http://www.badbanana.net/Downloads/80000.rar">HTTP://www.badbanana.net/Downloads/80000.rar</A> 菜鸟学编程第1篇做一个简单的小游戏动画教程：<A href="http://www.badbanana.net/Downloads/80000JC.rar">HTTP://www.badbanana.net/Downloads/80000JC.rar</A>

作者: 西门小祥 时间: 2005-4-26 22:55
我靠```````顶

作者: 麻虎子 时间: 2005-4-28 21:34
<

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

作者: 朱春海 时间: 2005-4-28 22:04
诱惑我犯罪

欢迎光临兴化400生活网 (http://wenhui.vc7.cc/)