Замена букв

← →
Незнайка (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]

← →
Незнайка (2009-11-02 22:57) [9]

Всем большое спасибо!!!

Ребята, вы что издеваетесь?

OnKeyPress для чего дан?

> Kolan © (03.11.09 00:06) [10]

> OnKeyPress для чего дан?

А речь об нем изначально и велась.
Бо, откуда бы key: Char.

--
Regards, LVT.

Замена букв Найти похожие ветки