掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ふりがなの取得について (ID:45544)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
igyさん こんばんは できました。 (Msg.LParam and GCS_RESULTREADSTR) <> 0)があると大丈夫なんですね。 ありがとうございました。m(_ _)m procedure TFuriganaEdit.WndProc(var Msg: TMessage); var imc: HIMC; strKana: string; nSize: Integer; begin if (FKanaOut <> nil) then begin imc := ImmGetContext(Handle); if (Msg.Msg = WM_IME_COMPOSITION) and ((Msg.LParam and GCS_RESULTREADSTR) <> 0) then begin strKana := ''; nSize := ImmGetCompositionString(imc, GCS_RESULTREADSTR, nil, 0); nSize := nSize div 2; SetLength(StrKana, nSize + 1); ImmGetCompositionString(IMC,GCS_RESULTREADSTR, PChar(StrKana), nSize*2+2); SetLength(StrKana, nSize); FKanaOut.Text := FKanaOut.Text + strKana; end; ImmReleaseContext(Handle, imc); end; inherited; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.