chcesz tylko 1 wiersz?
to o prostu pobierz [code]caretY[/code] i licz [code]selend[/code] (dodawaj np co 1) do momentu az zmieni sie [code]caretY[/code].
wtedy zaprzestan dodawac i dajesz selstart(position na caretY) i selend(to co dodales)
(ale zamotalem :d)
moze ten kodzik Cie wspomoze jakos:
procedure TForm1.UpdateCursorPos;
var
CharPos: TPoint;
begin
begin
CharPos.Y := SendMessage(richedit1.Handle, EM_EXLINEFROMCHAR, 0,
richedit1.SelStart);
CharPos.X := (richedit1.SelStart -
SendMessage(richedit1.Handle, EM_LINEINDEX, CharPos.Y, 0));
Inc(CharPos.Y);
Inc(CharPos.X);
linia:=charpos.Y;
kolumna:=charpos.X;
StatusBar1.Panels[0].Text := Format(sColRowInfo, [CharPos.Y, CharPos.X]);
end;
end;