break it problem

[EWeiss]

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