急急急！！！怎样模拟shift+end 或者 shift+home 组合键！！！急急急，追加100分

Question

我想实现的功能是：
   当鼠标点击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);但是没有效果
  请各位大侠帮忙

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
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;