>>>>>>>>> 阻止 RichEdit 选中整段文字 <<<<<<<<<<<<<<<< 各位好: 在 RichEdit控件中,在某文字上快速三次按鼠标左键时,整段文字将被选中,如何判断这个三击(不是双击)鼠标的动作及如何阻止RichEdit选中整段文字呢? 谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我告訴樓主一個主意: 用sendkey或其它函數模擬發送一個 <-- (向左的光標鍵),再發送一個向右的光標鍵,這樣,Mouse就不會再自動選擇了. 至於向左向右的光標鍵鍵值,好像是, 左為:37 右為:39 我不記得sendkey的使用方法了,你用一下 keybd_event(0, MapVirtualKey(0,0), 0,0);請樓主給我至少80分! TO: bluejingling能说明白些吗?什么时候发送呢?还是实时发送? 樓主,我為你的程序測試了半個多小時:把下面的代碼放到RichEdit的 MouseUp 事件中:if x=0 then //x=0表示mouse在最左邊,注意:把 richedit1 改為你自己命名的richedit ^_^begin //光標 向右sendmessage(richedit1.Handle,WM_KEYDOWN, VK_RIGHT,0); //wm_Keydown是按下sendmessage(richedit1.Handle,WM_KEYUP, VK_RIGHT,0); //wm_keyup 是松開//再向左sendmessage(richedit1.Handle,WM_KEYDOWN, VK_LEFT,0); //wm_Keydown是按下sendmessage(richedit1.Handle,WM_KEYUP, VK_LEFT,0); //wm_keyup 是松開end; 效果: 在左邊按mouse時,程序依然後選擇全部文本,但執行上述代碼時,程序會驪上取消選擇不明之處,請聯繫 [email protected] or : http://www.tanyong.com希望樓主把另外一個帖子中的分也送給我! 恐怕没有你说的这么简单吧,我要求的是禁止选中整段文字,并非选中了再取消,因为那样的话就会引起闪烁。再说,你的方法也不好,调节selstart等属性更简单。 Delphi与数据库做公交查询系统该怎么开头啊? 急求 一个关于Indy控件的IdTCPClient的连接问题! 管家婆的界面是用什么控件做的? 点击TButton关闭窗体时,怎样忽略其他控件的OnExit方法? 请问怎样让文本上下为断的滚动? 如何做硬件的驱动安装程序? 关于查找文件 使用Dcom时,如何在客户端返回服务器端的一个记录型的数据? 怎样把*.ani图标放在程序里?使鼠标变样! 绘图问题,急,急,急!! 请教网络传输中接收不同数据的问题 在delphi中,怎样用一条词句操作access和sqlserver(不是本地的,是内网上其它一台电脑)两个数据库?
用sendkey或其它函數模擬發送一個 <-- (向左的光標鍵),再發送一個向右的光標鍵,這樣,Mouse就不會再自動選擇了.
至於向左向右的光標鍵鍵值,好像是, 左為:37 右為:39 我不記得sendkey的使用方法了,你用一下
keybd_event(0, MapVirtualKey(0,0), 0,0);請樓主給我至少80分!
樓主,我為你的程序測試了半個多小時:
把下面的代碼放到RichEdit的 MouseUp 事件中:
if x=0 then //x=0表示mouse在最左邊,注意:把 richedit1 改為你自己命名的richedit ^_^
begin
//光標 向右
sendmessage(richedit1.Handle,WM_KEYDOWN, VK_RIGHT,0); //wm_Keydown是按下
sendmessage(richedit1.Handle,WM_KEYUP, VK_RIGHT,0); //wm_keyup 是松開//再向左
sendmessage(richedit1.Handle,WM_KEYDOWN, VK_LEFT,0); //wm_Keydown是按下
sendmessage(richedit1.Handle,WM_KEYUP, VK_LEFT,0); //wm_keyup 是松開end;
效果:
在左邊按mouse時,程序依然後選擇全部文本,但執行上述代碼時,程序會驪上取消選擇不明之處,請聯繫
[email protected]
or :
http://www.tanyong.com希望樓主把另外一個帖子中的分也送給我!