Форма входа

Категории раздела

Мои файлы [12]
Полезности [15]

Поиск

Наш опрос

Оцените мой сайт
Всего ответов: 62

Статистика


Онлайн всего: 3
Гостей: 3
Пользователей: 0




Понедельник, 25.11.2024, 08:53
Приветствую Вас Гость | RSS

Delphiport.ucoz.com

Главная | Регистрация | Вход
Полезные советы


Главная » Файлы » Мои файлы

Отслеживаем номер строки при вводе символов в компонент Memo
06.11.2011, 23:39

   Можно ли отслеживать номер строки при вводе в нее символов? Конечно же ДА! И для этого нужно всего лишь:  

  1) Поместить на форму компонент Memo;

  2) В свойстве Lines компонента убрать весь текст, чтоб окошко было чистым; //Можно в принципе и не убирать;

  3) В событии OnChange на Memo прописать следующее:

begin

Form1.Caption:=IntToStr(SendMessage(Memo1.Handle, EM_LINEFROMCHAR, word(-1), 0));

end;

  4) В событии OnShow на форме прописать то же самое:

begin

Form1.Caption:=IntToStr(SendMessage(Memo1.Handle, EM_LINEFROMCHAR, word(-1), 0));

end;

  5) Запускаем проект;

Теперь при перемещении курсора вниз по строкам, в свойстве Caption формы, будет определяться номер текущей строки.

Категория: Мои файлы | Добавил: Sashok
Просмотров: 728 | Загрузок: 0 | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Код *:

Copyright MyCorp © 2024