TRichEdit에서 전체선택(CTRL+A)시 문서 끝으로 자동 스크롤 시키기

1. 개요

  TMemo 컴포넌트 에서는 기본적인 컨텍스트 메뉴인 전체선택(CTRL+A)시 본문 내용이 전체 선택 되면서 문서의 끝으로 자동 스크롤 되지만 TRichEdit 컴포넌트에서는 전체 선택시 문서 끝으로 자동 스크롤 기능을 제공하지 않는다. 따라서 필요에 의해서 전체 선택시 문서의 끝으로 이동하도록 구현해 보자

2. 전체선택(CTRL+A)시 문서 끝으로 자동 스크롤링 

// Richedit1.SelStart :=RichEdit1.GetTextLength; // <- Delphi 2010이하 버전
Richedit1.SelStart :=RichEdit1.GetTextLen; // Delphi 2010이상 버전
SendMessage(RichEdit1.handle, EM_SCROLLCARET,0,0);

3. 샘플 화면