Ballspiel(Pongähnlich)

[DeddyH]

Dann pack doch einen Timer auf die Form und ändere innerhalb dessen OnTimer-Ereignisses die Position des Shapes. Wenn das klappt, implementiere noch die Kollisionskontrolle und fertig.

[karrax]

sorry das ich nachfragen muss aber habe erst seid sehr kurzem delphi. was genau soll ich denn in dem timer einstellen und wie mache ich das mit der kollision?

[DeddyH]

Du hast einen Timer und ein Shape. Für den Timer sind die Eigenschaften Enabled ("timern" oder nicht) und Interval (Zeit in Milisekunden zwischen 2 Auslösern) wichtig. Auf der "Ereignisse"-Seite des Objektinspektors kannst Du dann einen Doppelklick neben "OnTimer" machen, Delphi erstellt Dir dann das Code-Gerüst und weist gleichzeitig diese Methode dem entsprechenden Ereignis automatisch zu. So, innerhalb dieser Methode veränderst Du am Besten testhalber einfach nur mal die Position des Shapes (Left und Top ändern). Danach deklarierst Du Dir 2 Variablen für den gewünschten Versatz auf der X- und der Y-Achse und verwendest diese dann innerhalb der Timer-Methode. Zur Kollisionskontrolle musst Du dann nur noch die aktuellen Koordinaten und Dimensionen mit denen des Formular- bzw. Bildschirmrands vergleichen. Bei Kollision drehst Du dann nur noch das Vorzeichen der entsprechenden Variablen um.

[karrax]

Also ich hab geschaft das sich das Shape mit left unf top bewegt. aber bei dem rest blicke ich noch nicht so durch

[DeddyH]

Prima, das ist schon der erste Schritt. Wie sieht Dein Code derzeit aus (nur das OnTimer)?

[karrax]

procedure TForm1.FormCreate(Sender: TObject);
begin
Shape1.Left:= Shape1.Left+5;
Shape1.Top:= Shape1.Top+5;
end;

end.

wenn du das meinst

[DeddyH]

OK, mich wundert zwar, dass die Methode FormCreate heißt, aber wenn Du sie dem Timer zugewiesen hast, ist das auch OK. Als Nächstes brauchst Du die 2 Variablen, nennen wir sie mal VersatzX und VersatzY. Die müssen unbedingt global sein (normalerweise würde ich sie zwar nicht als globale Variablen deklarieren, aber der Einfachheit halber machen wir das hier mal).

Delphi-Quellcode:

implementation

{$R *.dfm}

var
  VersatzX: integer = 5;
  VersatzY: integer = 5;

Und in Deinem Code ersetzt Du nun jeweils die 5 durch VersatzX für den Versatz auf der X-Achse(also Left) und VersatzY auf der Y-Achse(also Top).