Получить номер строки при вводе символов в Memo в Delphi
Для этого нужно:
1) Поместить на форму компонент Memo;
2) В свойстве Lines компонента убрать весь текст, чтоб окошко было чистым; //Можно в принципе и не убирать;
3) В событии OnChange на Memo прописать следующее:
|
1 2 3 |
begin Form1.Caption:=IntToStr(SendMessage(Memo1.Handle, EM_LINEFROMCHAR, word(-1), 0)); end; |
4) В событии OnShow на форме прописать то же самое:
|
1 2 3 |
begin Form1.Caption:=IntToStr(SendMessage(Memo1.Handle, EM_LINEFROMCHAR, word(-1), 0)); end; |
5) Запускаем проект;
Теперь при перемещении курсора вниз по строкам, в свойстве Caption формы, будет определяться номер текущей строки.