获取 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开始计数