Beispielprogramm Fangen (Spiel): Mauszeiger steuert TShape

[MaBuSE]

Hallo,
habe mein Aufräumen folgendes Beispiel gefunden.
Vieleicht kann es ja jemand gebrauchen für ein Spiel oder so.

Der Name ist Fangen.
Es erscheint ein kleiner Ball, der dem Mauszeiger hinterherläuft.
Wenn der den Mauszeiger gefangen hat, gibts eine kleine Dialogbox.

Das Programm ist vor Jahren als Beispiel in einer Schulung entstanden.

Vieleicht kann es jemand als Anregung gebrauchen ;-)

Viel Spaß
MaBuSE

Delphi-Quellcode:

////////////////////////////////////////////////////////////////////////////////
// Fangen v1.0
//
// Kleines Spiel Fangen. Der Ball versucht den Mauszeiger zu fangen.
// Dies ist ein Beispielprogramm um zu zeigen wie man mit Hilfe von TMouse 
// ein TShape Objekt bewegen kann.
// Ich habe es mal vor ein paar Jahren im Rahmen einer Schulung
// als Beispiel geschrieben.
//
// Folgende Dinge werden demostriert:
//   - Benutzung eines TTimer
//   - Bewegen eines TShape
//   - Ermitteln der Mausposition
//   - Transparentes Form
//
// Download des neusten Quelltextes und Executables auf [url]www.delphipraxis.net[/url]
// URL: [url]http://www.delphipraxis.net/topic101058_beispielprogramm+fangen+spiel+mauszeiger+steuert+tshape.html[/url]
//
// verwendete 3rd party Komponenten:
//   - keine
//
// sonstige verwendete Dateien, die nicht Bestandteil von Delphi sind:
//   - keine
//
////////////////////////////////////////////////////////////////////////////////
// Das Programm ist Freeware und darf beliebig benutzt und erweitert werden.
// Es wäre nett, wenn dann auch der geänderte Quelltext in obiges URL-Adresse
// gesendet wird. Dann haben alle was davon.
// Es wäre auch nett wenn mein (unser) Name in den Dateien enthalten bleibt.
// Das Programm wird von Ihnen auf eigenes Risiko eingesetzt. Ich übernehme
// keine Haftung für Schäden die durch das Programm oder die Benutzung des
// Programms entstanden sind bzw. entstehen.
////////////////////////////////////////////////////////////////////////////////
// (C) 2007, MaBuSE, member of DelphiPraxis.net
////////////////////////////////////////////////////////////////////////////////
// ReleaseNotes:
// v0.9 - 17.01.2007 - MaBuSE:      Erste Version beim Aufräumen gefunden
// v1.0 - 17.01.2007 - MaBuSE:      Quellcode kommentiert und veröffentlicht
////////////////////////////////////////////////////////////////////////////////