Как сделать чтобы в объекте 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

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

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

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

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