Q&A

  • Tmemo field 에 텍스트가 자동으로 스크롤되도록하는 방법
Tmemo field 에 텍스트 내용은 보통 우측에 있는 스크롤 바를 움직여서 보게 됩니다.

사용자가 더 편리하게 볼수 있도록하려면, 마우스로 움직이지 않고,

화면 내용이 저절로 스크롤 되도록하면 좋겠는데,

이런 기능을 하도록 코드를 작성하는 방법을 좀 알려주시면 대단히 감사하겠습니다.

고수님의 답변을 고대합니다.
2  COMMENTS
  • Profile
    홍성락 2009.07.14 21:03
    여러방법이 있겠지만, 간단하게 타이머로 해 보았습니다.
    <!--CodeS-->
    procedure TFrmAboutHint.Timer1Timer(Sender: TObject);
    begin
    if Memo1.Perform(WM_VSCROLL, SB_LINEDOWN, 0) <= 0 then //한줄씩 내립니다, 결과가 0이면 이기능이 안된겁니다. 즉, 마지막줄일경우 맨 위로 가는 루틴 실행
    Memo1.Perform(WM_VSCROLL, SB_TOP , 0);
    end;
    <!--CodeE-->
  • Profile
    김동원 2009.07.16 02:11
    대단히 감사합니다.