wmMsg.Msg := Msg.message;
wmMsg.CharCode := Word(Msg.wParam);
wmMsg.KeyData := Msg.lParam;
- if (wmMsg.CharCode = 229) then begin
+ if (wmMsg.CharCode = 229) and (wmMsg.KeyData = 3735553) then begin
IMC := ImmGetContext(BodyEdit.Handle); //\83R\83\93\83e\83L\83X\83g\8eæ\93¾
Len := ImmGetCompositionString(IMC, GCS_COMPSTR, nil, 0); //\82Ü\82¸\92·\82³\82ð\8eæ\93¾
if (Len > 0) then begin