5,388
社区成员
发帖
与我相关
我的任务
分享如何实现模拟键盘？
我在form1窗体上有一个memo1控件和许多按钮，我想单击一个按钮后在memo1中显示一个固定的一段话，而且要在光标的位置。我用下列语句：
procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.Text:=memo1.Text+'浙江你好！';
end;
只能在最后添加'浙江你好！'。不能在光标位置添加。
procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.Text:=memo1.Text+'浙江你好！';
end;
只能在最后添加'浙江你好！'。不能在光标位置添加。
...全文
请发表友善的回复…
发表回复
lovelymelon 2003-06-14
- 打赏
- 举报
用selstart得到鼠标的位置然后把鼠标前、后的两部分文字记录下来，放到临时文件中保存。然后把memo清空，把鼠标前的文字加上。然后把要插入的文字加上，把鼠标后的文字加上，就可以
wwx024 2003-06-14
- 打赏
- 举报
请教如何用selstart得到鼠标的位置然后把鼠标前、后的两部分文字记录下来。谢谢！
