delphi richedit中用鼠标右击定位光标|笨鱼技术网

中国程序员联盟

正在重新改版中ing 不便之处还请见谅改版后将内容涉及java delphi .net php

| | | |

		当前位置：笨鱼delphi技术网>系统函数>文章内容

delphi richedit中用鼠标右击定位光标

来源：站内关于：bill 发布时间：2007-06-27

[

收藏] [

推荐]

procedure TForm1.RichEdit1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
TextRange: TCharRange;
atPos:Longint;
mousePoint:TPoint;
begin
if Button = mbRight then
begin
   RichEdit1.Perform(EM_EXGETSEL,0, Longint(@TextRange));
   if TextRange.cpMin<>TextRange.cpMax then
     begin
       mousePoint.x:=x;
       mousePoint.y:=y;
       atPos:=RichEdit1.Perform(EM_CHARFROMPOS,0,Longint(@mousePoint));
       if ( atPosTextRange.cpMax) then
         RichEdit1.Perform(WM_LBUTTONDOWN, MK_LBUTTON, MakeLong(X, Y));
     end
   else
     RichEdit1.Perform(WM_LBUTTONDOWN, MK_LBUTTON, MakeLong(X, Y));
end

[浏览：次]

上一篇：delphi 截获非客户区的消息下一篇：delphi 给控件添加弹出式菜单

[

收藏] [

推荐] [返回顶部] [打印本页] [关闭窗口]


	google adsense热点文章

·delphi Delphi中ShellExecute的妙用
·delphi 如何快速读取文本文件
·delphi 如何判断输入值是否中文
·delphi 在应用层截获键盘消息
·delphi delphi实现服务开启与关闭
·delphi 实时记录事件日志
·delphi 使MEMO自动滚动
·delphi 如何区分键盘两个Enter键
·delphi 切换界面的方法
·delphi 汉字输入法的编程及使用
·delphi Delphi程序输入法自动切换最简
·delphi 程序缩小为任务右下角的小图标

	Copyright@www.delphichm.com,2006-2009.All Rights Reserved.
	程序员联盟 \| delphi Java .net\|QQ:707102932