我想实现的功能是:
当鼠标点击Memo中的某一行时
Memo能高亮度显示并且高亮度显示该行我的解决思路时:
在鼠标点击事件中 ,模拟发送组合键
vk_home vk_shift+vk_End
我得程序是:MEMO1.SetFocus;
keybd_event(vk_home,mapvirtualkey(vk_home,0),0,0);
keybd_event(vk_home,mapvirtualkey(vk_home,0),KEYEVENTF_KEYUP,0);
keybd_event(vk_shift,mapvirtualkey(vk_shift,0),0,0);
keybd_event(vk_end,mapvirtualkey(vk_end,0),0,0);
keybd_event(vk_end,mapvirtualkey(vk_end,0),KEYEVENTF_KEYUP,0);
keybd_event(vk_shift,mapvirtualkey(vk_shift,0),KEYEVENTF_KEYUP,0);但是没有效果
请各位大侠帮忙
当鼠标点击Memo中的某一行时
Memo能高亮度显示并且高亮度显示该行我的解决思路时:
在鼠标点击事件中 ,模拟发送组合键
vk_home vk_shift+vk_End
我得程序是:MEMO1.SetFocus;
keybd_event(vk_home,mapvirtualkey(vk_home,0),0,0);
keybd_event(vk_home,mapvirtualkey(vk_home,0),KEYEVENTF_KEYUP,0);
keybd_event(vk_shift,mapvirtualkey(vk_shift,0),0,0);
keybd_event(vk_end,mapvirtualkey(vk_end,0),0,0);
keybd_event(vk_end,mapvirtualkey(vk_end,0),KEYEVENTF_KEYUP,0);
keybd_event(vk_shift,mapvirtualkey(vk_shift,0),KEYEVENTF_KEYUP,0);但是没有效果
请各位大侠帮忙
解决方案 »
- 读取文件的问题
- ID允许重复,每个ID对应的日期只允许一次,在输入数据时该做怎样的处理?
- 铁公鸡为阿日拔点毛~~~~~~ 浮云呀浮云~~~
- 如何把DBGrid的数据在报表里打印、预览
- 怎么让Tedit中的文字居中啊? (急!)
- 如何在RichEdit有输入焦点的时候,插入文本进去,而保证滚动条不会滚到最后。
- 100分求一中继算法
- 请教一个关于DBgrid网格中的数据修改问题
- 为什么我的Tbookmark类型再运行中总是包错说‘书签无效‘呢?
- 关于WebBrowser问题的相关讨论
- 谁能告诉我*.MWP要用什么打开?重重大大的有赏!
- 鼠标单击ListView的列标题时对列的内容排序,如何在标题右侧显示三角?
var i: Integer;
begin
Memo1.SetFocus;
i := Memo1.Perform(EM_LINEFROMCHAR, -1, 0); // 取当前行
Memo1.SelStart := Memo1.Perform(EM_LINEINDEX, i, 0);
Memo1.SelLength := Length(Memo1.Lines[i]);
end;