高亮选中MEMO某一行

选中第5行

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

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

begin

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

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

end;

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

//将滚动条定位到指定行

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

begin

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

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

end;

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

使用

procedure TForm1.Button1Click(Sender: TObject);

begin

   SelectLine(Memo1,);

   ScrollToLine(Memo1,);

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