뉴스 그룹에서 돌아다니는 Delphi 용 Overwrite 기능을 포팅해 보았습니다. 테스트 해 보니, 깜박거리지도 않고 잘 되네요.. KeyPress 이벤트에 넣으시면 됩니다.


if(!Memo1->SelLength) {
   if(((unsigned char)Key >= 32 && (unsigned char)Key <= 126) ||
      ((unsigned char)Key >= 128)) {
     Memo1->SelLength = 1;

     if(Memo1->SelLength > 0 && Memo1->SelText[1] == VK_RETURN)
       Memo1->SelLength = 0;
   }
}


이기주 님이 쓰신 글 :
: Memo나 RichEdit에서 Insert모드와 Overwrite모드 구현
:
: 방법을 알고 싶습니다.
:
: 간단하게 하는 방법은 SelStart와 Sellength=1를 사용하여
:
: Key이벤트 처리시에 사용하는 방법이지만,
:
: 이렇게 하면, 한글자가 지워졌다가 다시써지는 과정이므로
:
: 자세히 보면 해당줄이 껌뻑입니다.
:
: 다른방법을 알고 있으신 분의 답변 부탁드립니다.