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