초보자 wrote:

> 안녕하십니까? 항상 빠른 답변에 감사드립니다.

>

> 제가 Edit에 입력하는 문자가 한글,영문,특수문자,숫자를 입력할 수 있습니다.

> 입력한 값이 위의 네가지를 구분할 수 있었으면 좋겠고,

> 그것이 힘들다면 적어도 입력한 문자가 한글인지 아닌지 정도는

> 반드시 구분하면 좋겠습니다.

>

> 방법을 꼭 알려주십시요.

>



글씨요! 무신 질문 인지도 모르것고 해서 하여간

그 입력모드와 관련된 글을 올려드리지요! 참조하셔요!

그럼 오늘도 행복하셔요! 대전에서...

var

tIMC: HIMC;

dwSentence, dwComversion, dwTemp: DWORD;

begin

tIMC:=IMMGetContext(memo1.handle);

if ImmGetConversionStatus(tIMC, dwConversion, dwSentence) then begin

dwTemp:=dwConversion;

dwTemp:=dwTemp and IME_CMODE_NATIVE;

if dwTemp=IME_CMODE_NATIVE then

caption:=’한글모드’

else caption:=’영문모드’;

end;

if ImmGetConversionStatus(tIMC, dwConversion, dwSentence) then begin

//한글모드로 변경하는 경우

ImmSetConversionStatus(tIMC, IME_CMODE_NATIVE, dwSentence);

//영문모드로 변경하는 경우

dwConversion:=dwConversion and $FFFFFFFE;

ImmSetConversionStatus(tIMC, dwConversion, dwSentence);

end;

end;