关于richedit的问题

wzwcn 2005-04-24 09:22:39
1。如何取得光标的位置(坐标)?
我想在光标的位置显示一个弹出试菜单,我用RichEdit.CaretPos.x和RichEdit.CaretPos.y作业坐标显示时,菜单的位置总是不在光标的地方。

2。如何在光标的位置插入字符(串)?
不管光标在什么地方,我点一个按扭就会在光标的位置插入相应字符(串),请问如何实现?

请高手赐教,先谢了!
...全文
117 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
qiujsh 2005-04-25
  • 打赏
  • 举报
回复
delphi自带的例子应该就有这个功能,或者看rxrichedit的例子
pengxuan 2005-04-25
  • 打赏
  • 举报
回复
1.在窗体上放一个PopupMenu1菜单组件,设置RichEdit的PopupMenu属性为PopupMenu1.在RichEdit位置单击鼠标右键就可以实现在当前光标处显示弹出式菜单了
2.richedit1.seltext:='呵呵,肯定行.给分吧.';
yuejun 2005-04-25
  • 打赏
  • 举报
回复
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;
hellolongbin 2005-04-25
  • 打赏
  • 举报
回复
光标位置:RichEdit1.SelStart
在光标位置插入字符:
procedure TForm1.Button1Click(Sender: TObject);
begin
RxRichEdit1.SelLength:=0;
RichEdit1.SelText:=Edit1.Text;
end;
wzwcn 2005-04-25
  • 打赏
  • 举报
回复
我要的是光标的坐标。。。。。

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧