Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.009 c