5 개의 이미지를 화면 맨 위에서 화면 아래로 반복적으로 이동하려면

Question

5 개의 이미지를 양식의 맨 위에서 아래로 반복적으로 이동 시키십시오.이 이미지는 임의의 왼쪽 값을 사용하여 이전보다 약간 앞을 반복합니다. 나는 항상 그들의 최고 가치를 서로 맞추는 것처럼 보이지만 이것을 시도했다. 폼 활성화시 최상위 값은 모두 약 120 개 간격으로 설정됩니다.

코드 : (타이머)에

////// image1 ////// 
if image1.Top > 600 then begin 
image1.visible := true; 
image1.top := -300; 
repeat 
ml1 := randomrange(0, 9); 
until (ml1 <> ml2) and (ml1 <> ml3) and (ml1 <> ml4) and (ml1 <> ml5); 
case ml1 of 
    1 : image1.left := 8; 
    2 : image1.left := 80; 
    3 : image1.left := 152; 
    4 : image1.left := 224; 
    5 : image1.left := 296; 
    6 : image1.left := 368; 
    7 : image1.left := 440; 
    8 : image1.left := 512; 
    9 : image1.left := 584; 
end;//case 
end;//if 

모든 이미지는 동일한 코드를 가지고있다. 별도의 타이머에 각 이미지의 최고 값이 같은 간격으로 같은 양만큼 증가했습니다.

Answer 1

0과 120에서 시작하는 두 개의 상위 값을 고려하십시오. 한 타이머가 자주 이러한 값을 증가시킵니다. 값이 605와 725가되면 표시 한 타이머가 작동합니다. 로직 (X> 600이면 X : = - 300)이 둘 다에 적용됩니다. 이제 값은 -300과 -300입니다.