Delphi -> ExoSoft Catch me! game.

Yes, It's between Tuesday and Wednesday again and I was in for coding today, so that's what I've been doing

I've been working on a little program that you can download at this location Here

Here is also the entire code from the mainform, the other forms will speak out for itself if you understand delphi a bit

And for those people who think they can just copy and paste the entire code and put there name under it are wrong, you have to place the components on the form first

And admin, why the heck can't I post a topic in delphi section? DAMN YOU!

Code:

// Copyright ExoSoft 2008
// Programmed by Hein D.
// Developed between 1 Juli and 2 Juli 2008 ( Tuesday and Wednesday)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XPMan, StdCtrls, ExtCtrls, Menus;

type
  TForm1 = class(TForm)
    XPManifest1: TXPManifest;
    Button1: TButton;
    Panel1: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Close1: TMenuItem;
    N1: TMenuItem;
    Help1: TMenuItem;
    Button2: TButton;
    Help2: TMenuItem;
    About1: TMenuItem;
    procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Edit1Change(Sender: TObject);
    procedure Close1Click(Sender: TObject);
    procedure Help1Click(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure About1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 Button1.Left := Random(Form1.Width);
 Button1.Top := Random(Form1.Height);
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
 If Edit1.Text = ('ExoSoft') THEN
    Begin
    Edit2.Text := ('Good');
 End;
end;

procedure TForm1.Close1Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Help1Click(Sender: TObject);
begin
If Help1.Checked then
  begin
    panel1.Visible := true;
  end
    else
  begin
    panel1.Visible := false;
  End;
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
 If Edit2.Text = ('Good') THEN
    Begin
    Button1.Hide;
    Button2.Show;
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Form2.ShowModal
end;

procedure TForm1.About1Click(Sender: TObject);
begin
 Aboutbox.show;
end;

end.


Have fun with it and with the game.

PS: by clicking on help you get 2 Edit boxes, enter in the first edit box ExoSoft ( with uppercase ) to stop the button from moving.

Very nice hein!

And admin, why the heck can't I post a topic in delphi section? DAMN YOU!

You can't? I'll check the settings for the forum

Moved

Thank you, if I get some good reactions I will continue to place source code and programs on the forum, but only if people would like to of course ^^

I'm also relearning delphi to get a little up to date and get more experience.

Oh and I forgot to post the requirements!

Windows 95 to Windows vista
Atleast 5 MB memory for the program and the memory for the OS
And 450 KB Harddisk

Well that should do the trick I guess.

The file contains 2 files.
1. The program (.exe) 438 KB
2. The ExoSoft logo (.png) 11 KB

Lol, I don't think people would need system requirements for this, since it would run on basicly anything. (even my phone could run heavier apps then this. Java though.)

That's the great thing about it