TImage 컨트롤에 아래와 같이 3개의 이미지를 반복적으로 출력하고 싶은데
첫번째 이미지가 나온후 마지막 이미지가 뿌려지고 프로그램이 종료되네요
폼을 다시 그려주는 명령이 중간에 포함되어야 할 거 같은데?
어떻게 해야 할까요? 고수님들 답변 부탁드려요
for i:=1 to 3 do
begin
Image3.Picture.LoadFromFile('image\'+IntToStr(i)+'.jpg');
<--요부분에 폼을 다시 그려주는 명령
sleep(1000);
end;
제가 알긴 위처럼 하면 jpg 이미지는 안읽혀지는 걸로 아는데요..
암튼 읽은 후에 repaint 나 refresh 하면 되겠죠..
var
tmpJpg : TJPEGImage;
begin
tmpJpg := TJPEGImage.Create;
tmpJpg.LoadFromFile( '파일이름' );
Image1.Picture.Assign(tmpJpg);
Image1.Refresh;
tmpJpg.Free;
end;
이렇게 하면 될 것 같습니다. 저도 이런식으로 쓰고 있습니다.. ^^
그럼 이만..