richedit

[s1s1s1]

есть номер строчки

LineNumber := richedit1.Perform(EM_LINEFROMCHAR, -1, 0);

for j:=LineNumber to richedit1.Lines.Count-1  do edit3.text:=richedit1.Lines[linenumber+1];

выводит 1 раз.
надо по нажатию кнопки выводить строчку из рича,каждый раз следующую

[ArtGrek]

LineNumber := richedit1.Perform(EM_LINEFROMCHAR, -1, 0);

-1 <- Index

[s1s1s1]

а можно по подробнее

[ArtGrek]

а можно по подробнее

а можно по подробнее

код в студию

[s1s1s1]

procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer); 
begin 
  if Button  = mbRight then
 LineNumber := richedit1.Perform(EM_LINEFROMCHAR, -1, 0);//номер строчки 
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
for j:=LineNumber to richedit1.Lines.Count-1  do edit3.text:=richedit1.Lines[linenumber+1];// чтобы в едит выводилась следующая строчка по списку
end;