Q&A

  • 이미지 바꿔가면서 폼에 출력
TImage 컨트롤에 아래와 같이 3개의 이미지를 반복적으로 출력하고 싶은데
첫번째 이미지가 나온후 마지막 이미지가 뿌려지고 프로그램이 종료되네요
폼을 다시 그려주는 명령이 중간에 포함되어야 할 거 같은데?
어떻게 해야 할까요? 고수님들 답변 부탁드려요

  for i:=1 to 3 do
  begin
    Image3.Picture.LoadFromFile('image\'+IntToStr(i)+'.jpg');
    <--요부분에 폼을 다시 그려주는 명령
    sleep(1000);
  end;
2  COMMENTS
  • Profile
    석주현 2004.06.25 19:14


    제가 알긴 위처럼 하면 jpg 이미지는 안읽혀지는 걸로 아는데요..
    암튼 읽은 후에 repaint 나 refresh 하면 되겠죠..

    var
         tmpJpg : TJPEGImage;
    begin
         tmpJpg := TJPEGImage.Create;
         tmpJpg.LoadFromFile( '파일이름' );
         Image1.Picture.Assign(tmpJpg);
         Image1.Refresh;
      
         tmpJpg.Free;
    end;

    이렇게 하면 될 것 같습니다. 저도 이런식으로 쓰고 있습니다.. ^^

    그럼 이만..
  • Profile
    김경남 2004.06.25 19:21
    refresh; 하니까 되네요 감사합니다