Memo如何全选当前行的字符串

Question

请教：如何实现光标移动到MEMO的某一行上，都能全选该行中的所有字符串？
 麻烦大家帮忙看看，谢谢啦！

Answer 1

Memo中如何把当前行给全选了。或者DELPHI有什么函数可以把某字符串全选吗？

Answer 2

你自己算一下当前行的开始位置，在算出当前行的长度。用
Memo1.SetFocus ；
Memo1.SelStart：=当前行的开始位置 ；
Memo1.SelLength：=当前行的长度 ；

Answer 3

试了一下，第一行可以，但是第二行就不行了。。比如我鼠标移动到第二行，他反选的还是第一行；
          Memo2.SetFocus;
          Memo2.CaretPos := Memo1.CaretPos;
          showmessage(inttostr( Memo2.SelLength));
          Memo2.SelStart:=0;
          Memo2.SelLength:= length(Memo2.Lines.Strings[memo2.CaretPos.Y]);

Answer 4

SendMessage(memo1.Handle, EM_SETSEL, nStart, nEnd);
memo1的双击选中1行有些问题.如果该行有宽字符的话(如中文),就不行了.双击也一样.不知道楼主想要什么样的功能,TListBox就有这个功能.不过TListBox不能选中单个.