获取 Memo 选择行

2

3

4

5

6

7

8

var

  startline,endline:Integer;

begin

  startline := SendMessage(Memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0);

  Edit1.Text := IntToStr(startline);

  endline := SendMessage(Memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart+Memo1.SelLength,0);

  Edit2.Text := IntToStr(endline);

end;

可以使用Memo的属性CaretPos.X来取行鼠标所在行的行数与鼠标所在行的第几位

Memo.CaretPos.X 光标或鼠标所在行的列号(第几位),从0开始计数
Memo.CaretPos.Y 光标或鼠标所在行的行号(位于Memo的第几行),从0开始计数