输入法程序向当前光标处输入汉字是调用的哪个API函数啊？？？

[kingnew]

试过用sendmessage不行啊。

[老之]

用SendMessage两次看看行不行
var ch:string;
begin
ch:='好';
SendMessage(Memo1.Handle,WM_CHAR,ord(ch[1]),0);
SendMessage(Memo1.Handle,WM_CHAR,ord(ch[2]),0);
end;

[柯本]

用sendmessage不行.用postmessage肯定可以
procedure TForm1.Button1Click(Sender: TObject);
var ch:string;
begin
ch:='好';
postMessage(Memo1.Handle,WM_CHAR,ord(ch[1]),0);
postMessage(Memo1.Handle,WM_CHAR,ord(ch[2]),0);
end;