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

Замена символов в TEdit e...   Найти похожие ветки 

← →
vigo   (2005-02-14 11:49) [0]

Добрый день! У меня вопрос по поводу замены символов в TEdit"e. Есть необходимость замены символа Ё на Е. Как правильно прописать обработчик события OnKeyPress (или OnExit)?

---

← →
Александр Иванов ©   (2005-02-14 11:51) [1]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = "ё" then
 Key:="е"
else
 if Key = "Ё" then
    Key:="Е";
end;

---

← →
Ega23 ©   (2005-02-14 12:04) [2]

2 Александр Иванов ©   (14.02.05 11:51) [1]

И на выходе тоже надо проверять, т.к. в Edit из буфера текст можно вставить.

---

← →
VMcL ©   (2005-02-14 12:27) [3]

>>vigo   (14.02.05 11:49)

OnChange или как-то так.

---

Страницы: 1 вся ветка

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



Память: 0.45 MB
Время: 0.022 c