一个小问题

Question

我在memo里浏览内容,因为内容太多,我把滚动条下拉,然后选择几个字符,然后又把滚动条拉到最上面,按下向下的方向键,本来是想鼠标应该是移动到之前选择字符的下一行,结果却是当前memo里显示最后一行的下一行,应该怎么设置啊,想了好久都没有答案,请各位帮帮忙

Answer 1

先把焦点定在memo上，你用鼠标移动了滚动条，焦点在滚动条上。

Answer 2

在 OnKeyUP 事件中判断，如果是 向上的键，就：with memo1 do
    begin
      itemp := SendMessage(Handle, EM_LINEFROMCHAR, SelStart, 0);
      SelStart := Perform(EM_LINEINDEX, itemp + 1, 0);
      Perform(EM_SCROLLCARET, 0, 0);
    end;