RSS订阅 | 匿名投稿
您的位置:网站首页 > 组件 > 正文

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

作者:admin 来源: 日期:2018/3/14 11:38:50 人气: 标签:

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://www.cnblogs.com/key-ok/p/3359027.html

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料