高亮选中MEMO某一行

 

选中第5行

//转到指定行并选中这行的文本

procedure SelectLine(Memo1: TMemo; ln: Integer);

begin

  Memo1.SelStart := SendMessage(Memo1.Handle, EM_LINEINDEX, ln - 1, 0);

  Memo1.SelLength := Length(Memo1.Lines[ln - 1]);

end;

 

http://bbs.csdn.net/topics/110143548

 

//将滚动条定位到指定行 procedure ScrollToLine(Memo1: TMemo; ln: Integer);

begin

  SendMessage(Memo1.Handle, EM_LINESCROLL, 0, -Memo1.Lines.Count);

  SendMessage(Memo1.Handle, EM_LINESCROLL, 0, ln - 1);

end;

http://www.3aj.cn/delphi/article/1/279.html

 

使用

procedure TForm1.Button1Click(Sender: TObject);

begin

   SelectLine(Memo1,15);

   ScrollToLine(Memo1,15);

　 //将水平的滚动条滚到最左边
   SendMessage(Memo1.Handle, WM_HSCROLL, SB_LEFT, 0);
end;