Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
|
|
|
Как передвинуть курсор в Memo?
|
|||
|---|---|---|---|
|
#18+
Ситуация такая. Дано TMemo. Некоторые спецсимволы, которых нет на клаве, можно ввести нажатием определенной клавиши в программе. Хотелось бы, конечно, чтобы курсор передвинулся и встал после введенного симола\группы символов. Memo1.CaretPos.x:=Memo1.CaretPos.x+1 не прокатывает, т.к. компилятор говорит, что left sight can't be assigned to Pos.X:=Pos.X+8; Memo1.CaretPos:=Pos; Где Pos - переменная типа TPoint прокатывает, но глючит - нельзя вставить в произвольно выбранное место текста символ - он вставляется в конце. Pos:=Memo1.CaretPos Pos.X:=Pos.X+8; Memo1.CaretPos:=Pos; Вообще не работает. Как быть? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.01.2004, 06:50 |
|
||
|
Как передвинуть курсор в Memo?
|
|||
|---|---|---|---|
|
#18+
Memo1.SelStart ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.01.2004, 09:58 |
|
||
|
Как передвинуть курсор в Memo?
|
|||
|---|---|---|---|
|
#18+
Некоторый спецсимволы (в частности TAB) не позволяют ставить курсор в некоторые позации. Выходов несколько: 1. Посылка сообщения о нажатии стрелки влево, что типа (не проверял): SendMessage(Memo1.Handle, WM_KEYDOWN, VK_LEFT, 0); SendMessage(Memo1.Handle, WM_KEYUP, VK_LEFT, 0); 2. Оставить курсор на месте, пользаватель если надо сам подвинет. 3. В зависимости от кода символа расчитать на сколько позиций двигать. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.01.2004, 10:46 |
|
||
|
Как передвинуть курсор в Memo?
|
|||
|---|---|---|---|
|
#18+
Да пробовал я SelStart. Дело в том, что Memo1.SelStart:=Memo1.SelStart+1; Не работает вообще. Т.е. компилируется, но курсор не двигается. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.01.2004, 10:48 |
|
||
|
Как передвинуть курсор в Memo?
|
|||
|---|---|---|---|
|
#18+
Memo1.SetFocus; Memo1.SelStart:=Memo1.SelStart+1; - все работает Может ты пытаешся сдвинуть курсор до того как вставляешь символ? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.01.2004, 11:03 |
|
||
|
Как передвинуть курсор в Memo?
|
|||
|---|---|---|---|
|
#18+
2oleg_e Да нет, сдвигаю как раз после... Ты знаешь, в моем случае первый раз прокатывает, курсор действительно сдвигается. А вот второй раз нажатия на ту же клавишу уже не катит. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.01.2004, 11:08 |
|
||
|
Как передвинуть курсор в Memo?
|
|||
|---|---|---|---|
|
#18+
Код можно? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.01.2004, 11:38 |
|
||
|
Как передвинуть курсор в Memo?
|
|||
|---|---|---|---|
|
#18+
Код: Memo1.Text:=Memo1.Text+Evro.Caption; Memo1.SetFocus; Memo1.SelStart:=Memo1.SelStart+1; Evro - кнопка типа TSpeedButton ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.01.2004, 11:50 |
|
||
|
Как передвинуть курсор в Memo?
|
|||
|---|---|---|---|
|
#18+
оставь только Memo1.SelText:=Evro.Caption; ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 16.01.2004, 12:13 |
|
||
|
|
start [/forum/search_topic.php?author=Dark_Slayer&author_mode=last_posts&do_search=1]: |
0ms |
get settings: |
11ms |
get forum list: |
19ms |
get settings: |
10ms |
get forum list: |
18ms |
get settings: |
10ms |
get forum list: |
21ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
35ms |
get topic data: |
13ms |
get forum data: |
4ms |
get page messages: |
60ms |
get tp. blocked users: |
2ms |
| others: | 1094ms |
| total: | 1305ms |
| 0 / 0 |
