Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Замена букв [D7, XP]

Незнайка © (2009-11-02 20:40:00)
подскажите, как можно подменять буквы в полях Эдит и Мемо при вводе с клавиатуры?
Например при нажатии на клавишу a вместо нее будет печататься a:
делал так

If key = 'a'
then edit1.text := edit1.text + ':';

но дело в том, если переместится в середину текста и там нажать А, то двоеточии прицепится к концу эдита, а нужно сразу после А

Подскажите, как быть?

Leonid Troyanovsky (2009-11-03 07:26:00) [1]

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

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

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

--
Regards, LVT.

Kolan (2009-11-03 00:06:00) [2]
Ребята, вы что издеваетесь?

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

Незнайка (2009-11-02 22:57:00) [3]
Всем большое спасибо!!!

Leonid Troyanovsky (2009-11-02 21:54:00) [4]

> Игорь Шевченко © (02.11.09 21:40) [7]

"Меняю национальность на две судимости."
:)

--
Regards, LVT.

Игорь Шевченко (2009-11-02 21:40:00) [5]
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:33:00) [6]

> Омлет © (02.11.09 20:49) [2]

> key := ':';

PostMessage(Edit.Handle, WM_CHAR, Ord(':'), 0);

--
Regards, LVT.

Leonid Troyanovsky (2009-11-02 21:29:00) [7]

> Незнайка (02.11.09 21:05) [4]

> а как после прохода в цикла едита в OnChange, Курсор возвратить

Edit.SelStart := ..

--
Regards, LVT.

Незнайка (2009-11-02 21:05:00) [8]
а как после прохода в цикла едита в OnChange, Курсор возвратить в конец строки, а то он автоматически сбрасывается в начало :(

Незнайка (2009-11-02 20:56:00) [9]
Понял, спасибо за совет!!

Омлет (2009-11-02 20:49:00) [10]
Либо

If key = 'a' then
key := ':';

Омлет (2009-11-02 20:45:00) [11]
Каждый раз при OnChange проходи в цикле по Edit1.text и заменяй символы по таблице.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »