Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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
2-1256817317
user51
2009-10-29 14:55
2009.12.20
не считывает данные из сетевого файла


2-1256906798
Aleks
2009-10-30 15:46
2009.12.20
Как очистить CheckBoxes при показе ListView?


1-1229839894
VoyagerEternal
2008-12-21 09:11
2009.12.20
Проблема организации кода из нескольких модулей


2-1256914960
Ivan
2009-10-30 18:02
2009.12.20
Список названий сетевых соединений


15-1254758929
turbouser
2009-10-05 20:08
2009.12.20
Что-то с аськой опять...