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


本文整理自网络,侵删。

 
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

相关阅读 >>

Delphi 关闭显示器

Delphi trestclient + trestrequest + trestresponse

Delphi 从字符串中提取单词的函数

Delphi xe2 - 万一“获取程序自身大小的函数”改进版

Delphi 获取指定字符串后面的所有的字符串

Delphi实现tedit控件的外观只有一条下划线

Delphi 获取窗口矩形的四种方法: getclientrect、clientrect、getwindowrect、boundsrect

Delphi 中文字符串截取

Delphi隐藏桌面图片和显示桌面图标

Delphi的tfilestream

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...