<font color="#FF0000">模拟按键为什么没完没了？</font>(40分)

//我想在memo文本变化时，在焦点处插入一个h字符（只是为了演示一下，实际的插入条件不是memo文本变化）。但是，程序运行的结果是：memo文本一变化，就不断插入h,插入无数个h……<br>//怎么办？我只要插一个h即可。 &nbsp;我不是已经模拟了按键抬起了吗？<br><br>procedure TForm1.Memo1Change(Sender: TObject);<br><br>Const VK_H = 72;<br>Const KEYEVENTF_KEYUP = $2;<br><br><br>begin<br><br>&nbsp; &nbsp; &nbsp; keybd_event( VK_H, 0, 0, 0 ); &nbsp; // &nbsp;' press H<br>&nbsp; &nbsp; &nbsp; keybd_event( VK_H, 0, KEYEVENTF_KEYUP, 0); &nbsp; // &nbsp;' release H<br><br><br>end;

哈哈，你放在Memo1Change中一变化就发送按键，一发送就引起变化，不循环才怪！

插入的"h"再次引发了memo的change事件,所以.....

接受答案了.

wjiachun，抱歉！我只是一个菜鸟，让你笑话了……<br>向你致敬！