Q&A

  • memo 의 자동 스크롤 만들기?
richedit 의 경우는
scrollbars 를 ssvertical 로 하면
평시엔 안보이다가
글이 창을 넘어 서면
스크롤 바가 자동으로 생깁니다.

memo의 경우는
이렇게 놓을 경우 글이 길지 않아도 스크롤 바가 나옵니다.

procedure TForm1.memo1Change(Sender: TObject);
begin
if memo1.height <=  memo1.Lines.Count * 15 then
    memo1.ScrollBars := ssVertical
  else
    memo1.ScrollBars := ssNone;
end;

로 한번 해봤는데 글을 쓸때 창이 넘어가면 커서가 멋대로 움직이는
문제가 생기네요

다른 좋은 방법 있으시면 알려주세요
1  COMMENTS
  • Profile
    장태원 2003.05.10 01:27
    TRichEdit 는 HideScrollBars 라는 프로퍼티가 존재하므로...

    스크롤바가 자동으로 없어졌다 생겼다 합니다.

    그러나...TMemo 는 없습니다. 따라서 이런 문제가 발생하죠.

    TRichEdit 로 쓰세요..

    기본 프로퍼티는 동일하므로..

    TRichEdit 로 선언해서 사용하세요.