Позиция курсора в 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 в цикле гонять на предмет длины?:))

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

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

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

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

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