델파이
Panel(판넬) 위에 움직이는 텍스트
미스터몽키
2011. 1. 31. 15:30
//전역변수에 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;