안녕 하세요..
Richedit에 대해서 모르는 부분이 있어서 이렇게 다시 질문 합니다.
전에 Richedit의 입력 바이트수 제한에 대해서 물었거든요..
그 부분은
KeyUp 이벤트시
if Length(RichEdit1.Text) > 10 Then
ShowMessage('입력 바이트 수 초과');
이런씩으로 하니.. 한글과 영문 동일하게 10 바이트를 초과시에 메시지창이
출력이 되더군요..
근데.. 입력 바이트가 10바이트가 초과 했다는것은 알 수 있는데요.
10바이트가 초과 되면.. Richedit에 출력이 안되야 하는데..
결과적으로는 10바이트가 넘더라두 RichEdit 상에 출력이 된다는 겁니다
이 부분에 대해서.. 다른 분들게 도움을 청하고자 이렇게 글을 올립니다.
아예 RichEdit에 출력이 되지 않아도 되구요..
그렇다구 해서. backspace로 삭제를 했는데두.. 출력이 안되면
곤란하구요. ^^;;
아예 11바이트째 출력을 하면.. 초과한 바이트 만큼 삭제를 해두 될듯한데..
어떻게 구현을 해야 할지 몰라서. .이렇게 도움을 청합니다.
그럼. .좋은 하루 보내세요..
<!--CodeS-->
procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if Length(RichEdit1.Text) > 10 Then
begin
ShowMessage('입력 바이트 수 초과');
Key := #0;
end;
end;
<!--CodeE-->