Hallo

Ich lasse mit einem Timer ein Bild (Image1) nach oben bewegen auf ein anderes Bild (Image2) zu.
Image2.Left wird mit einer Zufallsvariable erstellt, Image2.Top mit einer anderen Zufallalsvariable.
Da sich aber das Image1.Top oder Image1.Left bei jedem Timerintervall um 28 vergrößert, und ich als Code

markieren

Delphi-Quellcode:

If (Image1.Top=Image2.Top+28)
or (Image1.Top=Image2.Top-28) Then
begin
randomize;
a:=Random(362)+1;
b:=Random(434)+1;
Image2.Top:=a;
Image2.Left:=b;
end;

habe, passiert es häufig das kein neues Image2.Left und Image2.Top erstellt wird.
Kann ich entweder a und b so generiren lassen dass sie immer in einem Fleck darstellen, an dem auch Image1 genau daranpasst,
oder muss ich es anders machen??

Ich hoffe ihr habt mein Problem verstanden?!?!

Dein Problem habe ich nicht verstanden, aber wenn du eine Zufallszahl erstellen willst, die durch 28 teilbar ist, kannst du foo = random(10)*28 benutzen.
Damit bekommst du dann ein der Zahlen von 0, 28, ..., 252 (die obere grenze wird bei random glaube ich nie ausgegeben).

randomize muss auch nur ein Mal aufgerufen werden, z.B. wenn das Hauptformular erstellt wird.

Danke hat funktioniert