안녕 하세요..


RichEdit 의 KeyUp 이벤트에서

Label1.Caption := Format( '%d', [ length( RichEdit1.Text ) ] );
        if length( RichEdit1.Text ) > 10 Then
        Begin
          Key := 0;
        End;

이런씩으로 해봤습니다.
근데.. 10바이트가 넘어도 출력된 글자가 있더군요..

그런데..

RichEdit의 KeyDown 이벤트에서

Label1.Caption := Format( '%d', [ length( RichEdit1.Text ) ] );
        if length( RichEdit1.Text ) > 10 Then
        Begin
          Key := #0;
        End;

이렇게 했을 경우..

영문일 경우는 10바이트가 넘을 경우 찍히지가 않더군요.

근데.. 여전히. 한글일 경우는 아예 Keydown이벤트로 들어 오지 않습니다.

한글일경우의 방법은 없는지요. .

KeyUp일 경우는 벌써 Richedit에 글자가 써지고 난 후라서 쓴 글자의 크기를

구한게 가능했던것 같은데요..

근데. 문제는 넘었을 경우.. 다시 지운다던가.. 이런 동작을 해야 할것 같은데

그 부분에 대해서는 잘 모르겠네요..

읽어 보시구.. 좋은 방법이 있으시면. 답변 부탁드립니다..

그럼.. 좋은 하루 보내세요..