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

Вниз

Позиция курсора в TMemo   Найти похожие ветки 

← →
KF111   (2003-12-02 20:32) [0]

Как определить позицию курсора в TMemo, тоесть номер строки, символ(положение) в строке?

---

← →
dataMaster ©   (2003-12-02 20:35) [1]

Не знаю насчет D6, но вот в D7 можно так: Memo1.CaretPos
Попробуй, может получится

---

← →
KF111   (2003-12-02 20:39) [2]

Так это он координаты на экране выдаст, а тексте?

---

← →
dataMaster ©   (2003-12-02 20:45) [3]

Текст и есть:
Memo1.CaretPos.X - позиция в строке
Memo1.CaretPos.Y - номер строки

---

← →
KF111   (2003-12-02 21:14) [4]

Точно, уже разобрался....
А вот как бы ограничить длину строки до определенного количества сиволов?

---

← →
dataMaster ©   (2003-12-02 21:32) [5]

Один из способов:

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if (Length(Memo1.Lines[Memo1.CaretPos.Y])= _твое_значение_) and
(Key<>#8) and (Key<>#13) then
Key:=#0
end;

---

← →
KF111   (2003-12-02 22:13) [6]

Это при наборе с клавы
А если из буфера вставили, что все строки Memo в цикле гонять на предмет длины?:))

---

← →
dataMaster ©   (2003-12-03 00:14) [7]

А "хвосты" куда денешь? Придется переносить. В итоге - все делаем руками и если надо, применяем циклы.

---

← →
KF111   (2003-12-03 21:27) [8]

> А "хвосты" куда денешь?

Однозначно рубить:)))

---

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

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

Наверх

Память: 0.48 MB
Время: 0.013 c