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

Как сделать чтобы в объекте TEdit вводились тока латинские буквы   Найти похожие ветки 

← →
SyrBrandon ©   (2010-04-19 21:54) [0]

Как сделать чтобы в объекте Edit1:TEdit вводились тока латинские буквы... При вводе в русском регистре ввода бы не происходило...  Необходимо сделать ввод лога и паса подобным образом... Заранее благодарен..

---

← →
{RASkov} ©   (2010-04-19 22:04) [1]

Как-то так примерно:

procedure TForm.EditKeyPress(Sender: TObject; var Key: Char);
const InvalidChar: set of Char = ["А".."я", "Ё", "ё"];
begin
 if Key in InvalidChar then Key:=#0;
end;

---

← →
Германн ©   (2010-04-20 01:04) [2]

> {RASkov} ©   (19.04.10 22:04) [1]

Для Д меньше 2010 можно ещё проще. if Ord(Key) < $80

---

← →
turbouser ©   (2010-04-20 08:46) [3]

> SyrBrandon ©   (19.04.10 21:54)  

Не надо забывать про Ctrl+V и контекстное меню.
Так что придется еще и проверку на OnChange повесить.

---

← →
Рамиль_   (2010-04-20 09:26) [4]

>  Необходимо сделать ввод лога и паса

Наберу я "АоН62Ь78", а пройдет только 6278.
И буду долго думать, почему меня не авторизует.
Надо проверить уже введенный и сказать, что так нельзя.

---

← →
Anatoly Podgoretsky ©   (2010-04-20 14:45) [5]

> SyrBrandon  (19.04.2010 21:54:00)  [0]

Дави их в OnKeyPress

---

← →
Anatoly Podgoretsky ©   (2010-04-20 14:47) [6]

> Рамиль_  (20.04.2010 09:26:04)  [4]

Не говорить надо, а пищать, это стандартное поведение на неправильные символы.

---

← →
SyrBrandon ©   (2010-04-20 18:47) [7]

Всем спасибо, это то что надо )))

---

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

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



Память: 0.46 MB
Время: -0.953 c