Переход текста, как по страницам RichEdit Delphi 7

[arriah]

Сообщение от Fotal

Спасибо, попробовал, но как-то странно работает. Сделал все тоже самое что и в примере по ссылке

И я тоже сделал как в примере, работает отлично.
Нажми несколько раз на конпку, увидишь

[Fotal]

Крайне признателен, мне нужно, как я понял, узнать высоту всего текста, сравнить её с высотой RichEdit, и если высота текста больше , то перенести строчку на другой компонент

[arriah]

Сообщение от Fotal

Крайне признателен, мне нужно, как я понял, узнать высоту всего текста, сравнить её с высотой RichEdit, и если высота текста больше , то перенести строчку на другой компонент

Не. я думаю алгоритм будет немного дргугим. Строчку переносить НЕ НАДО. Почему? Да просто потому что строка может быть одна в ричэдите и быть сколь угодно большой.. И например у тебя такая большая строка одна - в этом случае она перенесется в другой компонент и все, а предыдущий будет пустым.

Логичнее всего проверять высоту текста после нажатия enter.
Нажали энтер - высота нормальная? Продолжаем писать, если нет продолжаем в
новом.

[northener]

Сообщение от arriah

Не. я думаю алгоритм будет немного дргугим. Строчку переносить НЕ НАДО. Почему? Да просто потому что строка может быть одна в ричэдите и быть сколь угодно большой..

Не может и не будет. Сам так вчера подумал. Но проверил и убедился, что при WordWrap= True и при отсутствии горизонтального скролла, количество строк соответствует видимому.
Почему так происходит, копаться в исходниках было лень. Может быть TRichEdit использует т.н. "soft line-break". См. EM_FMTLINES message. А может и ещё что-то другое.