Скачать: CL | DM;

Как в мемо переместить курсор в определённую строку?   Найти похожие ветки 

← →
Shrek ©   (2002-11-05 12:47) [0]

Как в мемо переместить курсор в определённую строку?

---

← →
MBo ©   (2002-11-05 12:50) [1]

selstart

---

← →
Shrek ©   (2002-11-05 12:53) [2]

нет.
если у меня есть 100 строк, а мне надо 50 строку и я спользую selstart то курсор переместится только к 50 символу, количество символов разное.

---

← →
Song ©   (2002-11-05 12:56) [3]

Ну само собой, что нужно перемещать не на 50-ый символ на символ, который соответствует 50-ой строке.
Вы бы, прежде чем категорично отрицать ответ компетентного человека, сначала подумали.

---

← →
MBo ©   (2002-11-05 13:05) [4]

для вычисления используй сообщение EM_LINEINDEX.
Кстати ,в EM_* еще много чего интересного

---

← →
Shrek ©   (2002-11-05 13:06) [5]

да со стороны это так.
но у меня нет символа который бы соответсвовал строке.
если так то пожалуйста зделайте пример:

---

← →
Андрей Прокофьев ©   (2002-11-05 13:11) [6]

Наверное, не самый лучший, но простой способ:
Memo1.SelStart := POS(Memo1.Lines[2], Memo1.Lines.Text)-1;

---

← →
Андрей Прокофьев ©   (2002-11-05 13:13) [7]

Андрей Прокофьев © (05.11.02 13:11)
>>Наверное, не самый лучший, но простой способ:
Да и неверный, если строки дублируются... :(((

---

← →
MBo ©   (2002-11-05 13:13) [8]

Memo1.SelStart:=Memo1.Perform(em_lineindex,50,0);

---

← →
Shrek ©   (2002-11-05 13:14) [9]

> MBo
EM_LINEINDEX его значение может быти только 0..255 а у меня может быть 1000 строк.

---

← →
MBo ©   (2002-11-05 13:18) [10]

>только 0..255
Мягко говоря, неверно

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=1 to 1000 do memo1.lines.add(inttostr(i));
Memo1.SelStart:=Memo1.Perform(em_lineindex,50,0);
Memo1.Perform(EM_ScrollCaret,0,0);
Memo1.SetFocus;
end;

---

← →
Андрей Прокофьев ©   (2002-11-05 13:18) [11]

EM_LINEINDEX - это тип сообщения,
требуемая строка - второй параметр,
третий - должен быть 0

---

← →
Shrek ©   (2002-11-05 13:25) [12]

народ всем спасибо работает, я долго крутился возле этого и не видел сути, в который раз доказиваю себе о професионализме мастеров

---

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

Скачать: CL | DM;



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