![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 13.03.2011
Сообщений: 5
|
![]()
Программа должна отображать номер символа, после которого находится курсор! Интерфейс программы я сделал! Имеется окно редактирования(TEdit) в котором и будет бегать курсор по тексту и окно (label) в котором должен отображаться номер символа! Подскажите какое свойство нужно использовать???
![]() |
![]() |
![]() |
![]() |
#2 |
Delphi Warrior
Старожил
Регистрация: 15.08.2008
Сообщений: 2,502
|
![]()
Свойство SelStart (типа Integer) определяет порядковый номер символа, перед которым находится курсор. Отсчёт идёт от нуля;
Mess with the best, die like the rest.
![]() Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 |
![]() |
![]() |
![]() |
#3 |
Регистрация: 13.03.2011
Сообщений: 5
|
![]() |
![]() |
![]() |
![]() |
#4 |
Delphi Warrior
Старожил
Регистрация: 15.08.2008
Сообщений: 2,502
|
![]()
Как-то так по-моему
Код:
Mess with the best, die like the rest.
![]() Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 |
![]() |
![]() |
![]() |
#5 |
Регистрация: 13.03.2011
Сообщений: 5
|
![]()
Спасибо! Подскажите еще как прописать процедуру OnKeyPress для Edit чтобы она реагировала на нажатие клавиш VK_RIGHT и VK_LEFT и выводила информацию в label?
|
![]() |
![]() |
![]() |
#6 | |
Delphi Warrior
Старожил
Регистрация: 15.08.2008
Сообщений: 2,502
|
![]() Цитата:
Mess with the best, die like the rest.
![]() Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 |
|
![]() |
![]() |
![]() |
#7 |
Регистрация: 13.03.2011
Сообщений: 5
|
![]()
label1.caption := IntToStr(edit1.selstart); номер символа перед курсором!
Ну вот например для мышки я использовал: procedure TKursor.txtTClick(Sender: TObject); begin label2.caption := IntToStr(txtT.selstart); end; А вот для OnKeyPress это не работает! |
![]() |
![]() |
![]() |
#8 |
Delphi Warrior
Старожил
Регистрация: 15.08.2008
Сообщений: 2,502
|
![]()
Пишите в OnKeyDown
Код:
Mess with the best, die like the rest.
![]() Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 |
![]() |
![]() |
![]() |
#9 |
Регистрация: 13.03.2011
Сообщений: 5
|
![]()
Спасибо большое!
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
listbox над каким элементов находится курсор | Gumer | Компоненты Delphi | 3 | 13.04.2010 19:08 |
вычеркнуть строку и столбец на пересечении которого находится максимальный элемент | Amalia | Общие вопросы Delphi | 2 | 03.04.2010 08:01 |
StrinGrid( выделялась ячейка над которым находится курсор) | StartMis | Общие вопросы Delphi | 1 | 29.03.2010 01:53 |
Транспонировать квадрат,в нижнем левом углу которого находится минимальный элемент | zidan671 | Помощь студентам | 14 | 13.03.2009 22:05 |
Как узнать в Делфи координаты в котором находится курсор мыши? | SVS | Win Api | 3 | 08.02.2007 13:34 |