カナ入力について (ID:7476)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 なるほど、ImmGetConversionStatusで取得できるのであれば、ImmSetConversionStatusで設定出来そうですね。 # Mr.XRAYさんが紹介されたURLにあるGetInputModeを使用しています procedure SetInputMode(const winctr :TWinControl; Mode: TImeInputMode); var Imc:HIMC; dwConversion : DWORD; dwSentence : DWORD; begin winctr.SetFocus; Imc := ImmGetContext(winctr.Handle); ImmGetConversionStatus(Imc,dwConversion,dwSentence); If (dwConversion And IME_CMODE_ROMAN) = IME_CMODE_ROMAN Then begin //ROMAN if Mode = HIRA then begin dwConversion := dwConversion and (not IME_CMODE_ROMAN); ImmSetConversionStatus(Imc, dwConversion, dwSentence); end; end else begin //HIRA if Mode = ROMAN then begin dwConversion := dwConversion or IME_CMODE_ROMAN; ImmSetConversionStatus(Imc, dwConversion, dwSentence); end; end; ImmReleaseContext(winctr.Handle, Imc); end;