统计Memo中被选定的行数

字体大小: 中小 标准 ->行高大小: 标准 中 大 
//统计选定的行数：

function GetMemoSelectLineCount:integer;

var

s,e:integer;

begin

with memo1 do begin

s:=sendmessage(handle,EM_LINEFROMCHAR,selstart,0);

e:=sendmessage(handle,EM_LINEFROMCHAR,selstart+selLength,0);

end;

result:=e-s;

end; 如果没有问题，给分吧。

此文章由 http://www.ositren.com 收集整理 ,地址为: http://www.ositren.com/htmls/68397.html