关于richedit的问题

Question

1。如何取得光标的位置（坐标）？
   我想在光标的位置显示一个弹出试菜单，我用RichEdit.CaretPos.x和RichEdit.CaretPos.y作业坐标显示时，菜单的位置总是不在光标的地方。2。如何在光标的位置插入字符（串）？
  不管光标在什么地方，我点一个按扭就会在光标的位置插入相应字符（串），请问如何实现？  请高手赐教，先谢了！

Answer 1

1.在窗体上放一个PopupMenu1菜单组件,设置RichEdit的PopupMenu属性为PopupMenu1.在RichEdit位置单击鼠标右键就可以实现在当前光标处显示弹出式菜单了
2.richedit1.seltext:='呵呵,肯定行.给分吧.';

Answer 2

delphi自带的例子应该就有这个功能，或者看rxrichedit的例子

Answer 3

光标位置：RichEdit1.SelStart
在光标位置插入字符：
procedure TForm1.Button1Click(Sender: TObject);
begin
    RxRichEdit1.SelLength:=0;
    RichEdit1.SelText:=Edit1.Text;
end;

Answer 4

1、
Memo_code.SelLength:=0;
Memo_code.SelText:='你要插入的字符串';2、
var
  iRow,iCol: integer;
begin
  iRow:=SendMessage(Memo_code.Handle,EM_LINEFROMCHAR,Memo_code.SelStart,0);
  iCol:=memo_code.SelStart - SendMessage(memo_code.Handle,EM_LINEINDEX,iRow,0);
  StatusBar.Panels[0].Text := format(msgs.Script_CurSorPosition,[iRow+1,iCol]);
end;