Panel(판넬) 위에 움직이는 텍스트

//전역변수에 Right_side: Boolean설정 후

//Timer이벤트에 다음처럼 코딩하면  움직이는 텍스트가 Panel1에 나타난다.

  if Right_side then         //오른쪽으로 이동

    lbFilename.Left := lbFilename.Left + 10

  else

    lbFilename.Left := lbFilename.Left - 10;

  lbFilename.Refresh;

  if (Right_side = True) And ((lbFilename.Left + lbFilename.Width) < Panel1.Width) then

    Right_side := True

  else if (Right_side = True) And ((lbFilename.Left + lbFilename.Width) >= Panel1.Width) then

    Right_side := False

  else if (Right_side = False) And (lbFilename.Left > 0) then

    Right_side := False

  else

    Right_side := True;