| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как сделать чтобы в объекте TEdit вводились тока латинские буквы [D7]

SyrBrandon ©   (2010-04-19 21:54:00) 

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

---

SyrBrandon   (2010-04-20 18:47:00) [1]

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

---

Anatoly Podgoretsky   (2010-04-20 14:47:00) [2]

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

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

---

Anatoly Podgoretsky   (2010-04-20 14:45:00) [3]

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

Дави их в OnKeyPress

---

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

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

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

---

turbouser   (2010-04-20 08:46:00) [5]

> SyrBrandon ©   (19.04.10 21:54)  

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

---

Германн   (2010-04-20 01:04:00) [6]

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

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

---

{RASkov}   (2010-04-19 22:04:00) [7]

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

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

---

Наверх