procedure TForm1.Button1Click(Sender: TObject); var i:Integer; begin i:=SendMessage(Richedit1.handle,EM_LINEFROMCHAR,Richedit1.selstart,0)+1; ShowMessage(IntToStr(i)); end;
delphi 获得memo，Richedit焦点所在行
原文：http://www.cnblogs.com/qingsong/p/3517791.html
