Текущий архив: 2003.02.17;
Скачать: CL | DM;

Вниз

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

← →
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;

---

Страницы: 1 вся ветка

Текущий архив: 2003.02.17;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.015 c