您现在的位置:首页 >> VCL >> VCL >> 内容

RichEdit选中文字右键菜单的实现

时间:2011-9-3 16:27:05 点击:

  核心提示:procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y:...
procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); var  vPoint: TPoint; begin  if Button <> mbRight then Exit;  vPoint := Point(X, Y);  X := SendMessage(RichEdit1.Handle, EM_CHARFROMPOS,0,     Integer(@vPoint)) and $0000FFFF;// 得到鼠标点击字符位置  if (X >= RichEdit1.SelStart) and     (X <= RichEdit1.SelStart + RichEdit1.SelLength) then     ShowMessage(RichEdit1.SelText); end;

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
本类推荐
  • 没有
本类固顶
  • 没有
  • 盒子文章(www.2ccc.com) © 2017 版权所有 All Rights Reserved.
  • 沪ICP备05001939号