Zitat von
speedy23:
danke für die antwort
leider funktinoiert es weiterhin nicht
der punkt wird kreiert und flimmert auf einer stelle ohne jegliche bewegung... was zu hölle mach ich denn falsch?
|edit
soll ich evtl den ganzen quelltext nochmal posten?
DX, DY global definieren und x, y innerhalb des Timers
Dann setze in den Zeilen einen Breakpoint
Delphi-Quellcode:
if (Shape1.Top <= 0) or (Shape1.Top >= image1.ClientHeight - Shape1.Height) then
if (Shape1.Left <= 0) or (Shape1.Left >= image1.ClientWidth - Shape1.Width) then
und schau was Dx, und Dy ausgeben wenn du in diese zeile springst.
Nebenbei
Wenn man nur eine zeile hinter einer IF abfrage schreibt ist ein Begin .. End nicht nötig.
Delphi-Quellcode:
if (Shape1.Top <= 0) or (Shape1.Top >= image1.ClientHeight - Shape1.Height) then
y := -dy;
gruss