Forum: Sonstige Fragen zu Delphi
by DeddyH,
6. Nov 2013
Nö, das hast Du eben nicht gemacht. Setz doch übrigens bitte künftig Delphi-Tags, das ist die Schaltfläche mit dem Helm im Beitragseditor, dann wird das auch schön formatiert. Ich mach das hier mal, dann sieht das so aus:
begin
Shape1.Left:= Shape1.Left+VersatzX;
Shape1.Top:= Shape1.Top+VersatzY;
if (0 >= self.Shape1.Left) or
(self.Shape1.Left >= self.Width - self.Shape1.width)...
Forum: Sonstige Fragen zu Delphi
by DeddyH,
6. Nov 2013
Wo hast Du ihn denn eingefügt? Der Code gehört mit in den Timer-Code.
Forum: Sonstige Fragen zu Delphi
by DeddyH,
6. Nov 2013
Entweder Du tolerierst das oder Du lässt den Ball noch einen "Zwischenschritt" machen. In dem Fall versetzt Du ihn nicht um VersatzX, sondern um -Shape.Left bzw. die Differenz zwischen rechter Shapeseite und Clientbreite des Formulars.
Das war wahrscheinlich jetzt nicht so richtig verständlich, daher ein Beispiel mit einer lokalen Variablen (wieder nur die X-Achse, etwas Arbeit sollst Du ja...
Forum: Sonstige Fragen zu Delphi
by DeddyH,
6. Nov 2013
Nun kommt die Kollisionskontrolle. Eine Kollision auf der X-Achse liegt ja dann vor, wenn
- die linke Seite des Shapes kleiner oder gleich 0 oder
- die rechte Seite des Shapes (ergibt sich aus Left + Width des Shapes) größer oder gleich ClientWidth des Formulars ist.
Das solltest Du also zuerst prüfen. Liegt eine Kollision vor, dann drehst Du das Vorzeichen für VersatzX um, also
VersatzX :=...
Forum: Sonstige Fragen zu Delphi
by DeddyH,
6. Nov 2013
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).
implementation
{$R *.dfm}
...
Forum: Sonstige Fragen zu Delphi
by DeddyH,
6. Nov 2013
Prima, das ist schon der erste Schritt. Wie sieht Dein Code derzeit aus (nur das OnTimer)?
Forum: Sonstige Fragen zu Delphi
by DeddyH,
6. Nov 2013
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,...
Forum: Sonstige Fragen zu Delphi
by DeddyH,
6. Nov 2013
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.
Forum: Sonstige Fragen zu Delphi
by DeddyH,
6. Nov 2013
Stichwort für die Forensuche: Kollisionskontrolle, damit sollten sich etliche Beispiele finden lassen.
