제가 사진 10장을 3초마다 바뀌면서 순차적으로 계속 바뀌게 하고싶습니다. 1 > 2 > 3 > 4 > 5 > 6 > 7 > 8 > 9 > 10 > 1 > 2 > 3 ...
이런식으로 말이죠 다른곳에 질문을 올려서 도움을 받았는데 너무 어려워서요.. 제가 너무 초짜라 책을 보면서 하고있는데도
많이 어렵네요.
무한반복은 너무 어려워서 일단 1장부터 10장까지만 딱 한사이클만 보여주게 하려고합니다.
많은 도움으로
procedure TForm1.Timer3Timer(Sender: TObject);
Var
g_iCount : integer;
begin
g_iCount := 1;
Image1.Picture.LoadFromFile('G:\GentooPenGuin\Delphi\Jusorok\Image\'+
inttostr(g_iCount)+ '.bmp');
Inc(g_iCount);
if (g_iCount >= 10) then
g_iCount := 1;
end;
이렇게 까지 왔습니다. 타이머 인터벌값은 3000으로 3초입니다.
제 생각대로라면 3초마다 그림이 바껴야하는데 1번그림에서 바뀔 생각을 안하네요.
왜그런걸까요??? 도와주세요 여러분!!
|