如何在delphi中使用windows输入法？

发布于 2024-09-06 23:32:49 字数 505 浏览 9 评论 0原文

我有几个键盘，它们输入不同的 TMemos。在英语中，一切正常，但在韩语中，击键会先发送到 IME，然后再发送到我的 onKeypress （它处理/识别不同的键盘），所以我无法确切地知道它之前来自哪个键盘。

我不太清楚如何使用 WinApi，但我需要学习使用处理 IME 的部分。此处有很多信息，但我需要知道如何应用它德尔福。我需要存储每个用户的击键并将它们发送到 IME。

也许有人可以帮助我学习使用 IMM.PAS

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

寒江雪… 2024-09-13 23:32:49

让它工作了。使用 ImmGetContext、ImmSetCompositon、ImmGetComposition 和 NormalizeString。

procedure TForm1.IMEFUNCTION(var msg: TMsg);
var
  buf: array [0..20] of char;
  hHimc: HIMC;
  i, j: integer;
  str: string;
  temporary: PWideChar;
begin

   hHimc:= ImmGetContext (msg.hwnd);
   if hHimc = 0 then
    Exit;
   fillchar (buf, 20, 0);
   ImmSetCompositionStringW (hHimc, SCS_SETSTR, PChar (''), Length(''), nil, 0);
   ImmGetCompositionString (hHimc, GCS_COMPSTR, @buf, 20);

  temporary:= PWideChar(Edit1.Text+buf[0]);
  NormalizeString(5 , temporary, -1, buf, 20);
  Edit1.Text:=buf;

    end;//end if
  end;//end for
  ImmReleaseContext (handle, hHimc);

end;

旁注：我并没有真正使用 TEdit，我使用了 StringGrid 和 for 循环。（不过大体思路已经有了）

Got it to work. Using ImmGetContext, ImmSetCompositon, ImmGetComposition and NormalizeString.

procedure TForm1.IMEFUNCTION(var msg: TMsg);
var
  buf: array [0..20] of char;
  hHimc: HIMC;
  i, j: integer;
  str: string;
  temporary: PWideChar;
begin

   hHimc:= ImmGetContext (msg.hwnd);
   if hHimc = 0 then
    Exit;
   fillchar (buf, 20, 0);
   ImmSetCompositionStringW (hHimc, SCS_SETSTR, PChar (''), Length(''), nil, 0);
   ImmGetCompositionString (hHimc, GCS_COMPSTR, @buf, 20);

  temporary:= PWideChar(Edit1.Text+buf[0]);
  NormalizeString(5 , temporary, -1, buf, 20);
  Edit1.Text:=buf;

    end;//end if
  end;//end for
  ImmReleaseContext (handle, hHimc);

end;

Side note: I didn't really use TEdit, I used a StringGrid and a for-loop. (but the general idea is there)

回复收藏 0 原文