Положение каретки в поле ввода

@MrAndrey_ka · Регистрация: 13.05.2009

Студворк — интернет-сервис помощи студентам

Версия платформы 8.2.17 конфигурация на управляемых формах

Есть форма с многострочным полем ввода(Формула) и кучей кнопочек под ней, нажимая на которые вставляется некий текст в текущую позицию каретки ввода в поле ввода

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
нс = 0; нк = 0; кс = 0; кк = 0;
    Элементы.Формула.ПолучитьГраницыВыделения(нс, нк, кс, кк); 
    
    Результат = "";
    Данные = Формула;
    
    сч = 1;
    Пока сч < нс цикл
        результат = результат + СтрПолучитьСтроку(Данные, сч) + Символы.ПС;
        сч = сч + 1;
    КонецЦикла;
    
    Если нк > 1 Тогда
        результат = результат + Лев(СтрПолучитьСтроку(Данные, нс), нк-1);   
    КонецЕсли;
    
    результат = результат +  Реквизит(ЭтаФорма[Элемент.Имя], "ПредставлениеВФормуле");
    нс = СтрДлина(результат);
    
    результат = результат + Сред(СтрПолучитьСтроку(Данные, кс), кк);
    сч = кс + 1;
    нк = СтрЧислоСтрок(Данные);
    
    Пока сч <= нк Цикл
        результат = результат + Символы.ПС + СтрПолучитьСтроку(Данные, сч);
        сч = сч + 1;
    КонецЦикла;   
    
    Формула = результат;
    Элементы.Формула.УстановитьГраницыВыделения(нс, нс);

все работает нормально за исключением одного момента, после этого каретка перемещается в начало строки.
при этом каретка перемещается в начало уже после выхода с процедуры, я так понимаю что после того как я присваиваю Формула = результат; идет обновление поля ввода и уже в это время сбрасывается позиция каретки, как можно это обойти?

@duk337 · 29.07.2013, 15:49

по-моему никак. Только если right-arrow засовывать. Так для этого позицию надо знать

Добавлено через 58 секунд
хотя позиция известна...

@MrAndrey_ka · 29.07.2013, 16:26 **[ТС]**

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

right-arrow

а это что такое?

@Dethmontt · 29.07.2013, 17:56

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

Элементы.Формула.УстановитьГраницыВыделе ния(нс, нс);

Это так работает эта хрень... Попробуй вот так

1C
1
Элементы.Формула.УстановитьГраницыВыделения(нс, нс+1);

@duk337 · 29.07.2013, 20:41

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

а это что такое?

вот что мне поведал переводчик гугл: "стрелка вправо"... А то я уже было засомневался

@MrAndrey_ka · 30.07.2013, 16:47 **[ТС]**

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

Это так работает эта хрень... Попробуй вот так

1C
1
Элементы.Формула.УстановитьГраницыВыделения(нс, нс+1);

да что так, что так, все равно не выходит, дело в том что каретка передвигается в начало уже после того как срабатывает эта строка

duk337, а можно подробнее свои домыслы объяснить??

@Dethmontt · 30.07.2013, 18:33

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

да что так, что так, все равно не выходит, дело в том что каретка передвигается в начало уже после того как срабатывает эта строка

Проверял, отлично работает при условии если
- Начальная позиция <(меньше) Конечной позиции
и числа позиций не выходят за границы длинны текста

Добавлено через 1 минуту

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

и числа позиций не выходят за границы длинны текста

Т.е. число начальной позиции не может быть больше предпоследнего символа

@duk337 · 30.07.2013, 20:24

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

duk337, а можно подробнее свои домыслы объяснить??

эмуляция нажатия кнопки. Вариант с отчаяния

@Dethmontt · 30.07.2013, 23:32

В твоем случае работать будет вот так: (Но будет выделяться последняя буква)

1C
1
Элементы.Формула.УстановитьГраницыВыделения(нс-1, нс);

P.S. Как это побороть не прибегая к сторонним объектам и не добавляя пробел в конец строки - НЕЗНАЮ.
Но скажу спасибо если разберешься!

@MrAndrey_ka · 05.08.2013, 13:14 **[ТС]**

Проверял, отлично работает при условии если
- Начальная позиция <(меньше) Конечной позиции
и числа позиций не выходят за границы длинны текста

а проверь еще раз не забывая о том что перед установкой выделения строка элемента тоже меняется Формула = результат;.... если получится прошу выложить весь код!

@Dethmontt · 05.08.2013, 15:21

да пожалуйста

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
&НаКлиенте
Процедура Команда1(Команда)
    
    Строкаформулы = "";
    ГСЧ = Новый ГенераторСлучайныхЧисел;
    
    Строкаформулы = Строкаформулы+ГСЧ.СлучайноеЧисло(1,9999999);
    Строкаформулы = Строкаформулы+"-"+ГСЧ.СлучайноеЧисло(1,9999999);
    
    Результат = Строкаформулы;
    ЭтаФорма.ТекущийЭлемент = Элементы.Результат;
    ЭтаФорма.ОбновитьОтображениеДанных();
    Элементы.Результат.УстановитьГраницыВыделения(СтрДлина(Результат),СтрДлина(Результат)+1);
    
    
КонецПроцедуры

@Dethmontt · 05.08.2013, 15:22

Сама обработка ВыделениеПоследнегоСимвола.rar

@Dethmontt · 05.08.2013, 15:26

И что бы поставить курсор в конец строки у меня получилось только добавляя пробел в конец строки. Если знаешь как по другому поделись =)))

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@duk337 2956 / 1768 / 84 Регистрация: 03.11.2011 Сообщений: 8,280
	29.07.2013, 15:49
	по-моему никак. Только если right-arrow засовывать. Так для этого позицию надо знать Добавлено через 58 секунд хотя позиция известна... 0

@Dethmontt Модератор 4032 / 2977 / 594 Регистрация: 10.03.2011 Сообщений: 11,703 Записей в блоге: 1
	05.08.2013, 15:22
	Сама обработка ВыделениеПоследнегоСимвола.rar 0

@Dethmontt Модератор 4032 / 2977 / 594 Регистрация: 10.03.2011 Сообщений: 11,703 Записей в блоге: 1
	05.08.2013, 15:26
	И что бы поставить курсор в конец строки у меня получилось только добавляя пробел в конец строки. Если знаешь как по другому поделись =))) 0