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

2024-09-02 08:10:37 217人阅读

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;

http://blog.csdn.net/zswang/article/details/1556321

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

声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉：投诉/举报工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。

联系
我们