Memo已有内容“111222”，光标停1和2之间，双击，使得光标处增加文字aaa，怎么达到这样的效果？

[wooernet]

memo1.text:=memo1.text+'aaa';
只能加到后面，怎么加到 光标 处啊？

[ToBeABetterMan]

1。获得光标的位置
2。将memo1的内容取出来到TstringList
3。将aaa插入
4。将TStringList写回到memo1

[wooernet]

获取光标的函数是什么？
能不能贴些代码啊，在线

[hellolongbin]

Memo1.SelText:='aaa'

[Dreamnest]

以前我写过，利用剪贴板功能，明天我给你答案。

[何鲁青]

楼上正解
procedure TForm1.Memo1DblClick(Sender: TObject);
begin
memo1.SelText:='aaaa';
end;

[Dreamnest]

hellolongbin(一个人[.net学习中……]) 给出了答案，比我的还好

[wooernet]

谢谢各位！