procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
i:=SendMessage(Richedit1.handle,EM_LINEFROMCHAR,Richedit1.selstart,)+;
ShowMessage(IntToStr(i));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
i:=SendMessage(Richedit1.handle,EM_LINEFROMCHAR,Richedit1.selstart,)+;
ShowMessage(IntToStr(i));
end;
该资源仅限VIP专享下载