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;
로 한번 해봤는데 글을 쓸때 창이 넘어가면 커서가 멋대로 움직이는
문제가 생기네요
다른 좋은 방법 있으시면 알려주세요
스크롤바가 자동으로 없어졌다 생겼다 합니다.
그러나...TMemo 는 없습니다. 따라서 이런 문제가 발생하죠.
TRichEdit 로 쓰세요..
기본 프로퍼티는 동일하므로..
TRichEdit 로 선언해서 사용하세요.