delphi 获得memo，Richedit焦点所在行

时间：2014-01-16 08:55:32 收藏：0 阅读：718

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
begin
  i:=SendMessage(Richedit1.handle,EM_LINEFROMCHAR,Richedit1.selstart,0)+1;
  ShowMessage(IntToStr(i));
end;

原文：http://www.cnblogs.com/qingsong/p/3517791.html