Переход на строку

← →
Nemas (2003-02-07 17:31) [0]

Как в TMemo можно перейти на любую строку?

← →
Song (2003-02-07 20:34) [1]

TMemo.SelStart

← →
Ich Hasse (2003-02-07 23:37) [2]

что ты подразумеваешь под словом перейти?

← →
dim- (2003-02-07 23:45) [3]

Попробуй так:

Procedure setline(WhichEdit:TRichedit;Linepos,charpos:integer);
Begin
with WhichEdit do
begin
selstart:=perform(EM_LineIndex,Linepos,0)+charpos;
perform(EM_ScrollCaret,0,0);
end;
end;

procedure TTxtEdit.SpeedButton1Click(Sender: TObject);
var s:string;
begin
s:=inttostr(RxRichEdit1.CaretPos.y);
if inputQuery("Input Box", "Prompt", s) then Begin
RxRichEdit1. SetFocus;
setline(RxRichEdit1,strtoint(s),0);
end
end;

Переход на строку Найти похожие ветки