Текущий архив: 2009.12.20;
Скачать: CL | DM;
Вниз
Замена букв Найти похожие ветки
← →
Незнайка (2009-11-02 20:40) [0]подскажите, как можно подменять буквы в полях Эдит и Мемо при вводе с клавиатуры?
Например при нажатии на клавишу a вместо нее будет печататься a:
делал так
If key = "a"
then edit1.text := edit1.text + ":";
но дело в том, если переместится в середину текста и там нажать А, то двоеточии прицепится к концу эдита, а нужно сразу после А
Подскажите, как быть?
← →
Омлет © (2009-11-02 20:45) [1]Каждый раз при OnChange проходи в цикле по Edit1.text и заменяй символы по таблице.
← →
Омлет © (2009-11-02 20:49) [2]Либо
If key = "a" then
key := ":";
← →
Незнайка (2009-11-02 20:56) [3]Понял, спасибо за совет!!
← →
Незнайка (2009-11-02 21:05) [4]а как после прохода в цикла едита в OnChange, Курсор возвратить в конец строки, а то он автоматически сбрасывается в начало :(
← →
Leonid Troyanovsky © (2009-11-02 21:29) [5]
> Незнайка (02.11.09 21:05) [4]
> а как после прохода в цикла едита в OnChange, Курсор возвратить
Edit.SelStart := ..
--
Regards, LVT.
← →
Leonid Troyanovsky © (2009-11-02 21:33) [6]
> Омлет © (02.11.09 20:49) [2]
> key := ":";
PostMessage(Edit.Handle, WM_CHAR, Ord(":"), 0);
--
Regards, LVT.
← →
Игорь Шевченко © (2009-11-02 21:40) [7]if Key = "х" then
Key := "п"
else if Key = "л" then
Key := "и"
else if Key = "е" then
Key := "в"
else if Key = "б" then
Key := "о"
← →
Leonid Troyanovsky © (2009-11-02 21:54) [8]
> Игорь Шевченко © (02.11.09 21:40) [7]
"Меняю национальность на две судимости."
:)
--
Regards, LVT.
← →
Незнайка (2009-11-02 22:57) [9]Всем большое спасибо!!!
← →
Kolan © (2009-11-03 00:06) [10]Ребята, вы что издеваетесь?
OnKeyPress
для чего дан?
← →
Leonid Troyanovsky © (2009-11-03 07:26) [11]
> Kolan © (03.11.09 00:06) [10]
> OnKeyPress для чего дан?
А речь об нем изначально и велась.
Бо, откуда бы key: Char.
--
Regards, LVT.
Страницы: 1 вся ветка
Текущий архив: 2009.12.20;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.01 c