Как сделать так, чтобы в Edit вводились только латинские символы?

← →
Kolan © (2007-10-12 08:44) [0]

Независимо от текущеё раскладки?

То есть если я набрал
QWERT, то в Edit"е QWERT, а если набрал ЙЦУКЕ, то в Edit"е все равно QWERT.

← →
Skyle © (2007-10-12 08:56) [1]

Таблица подстановки?

← →
Kolan © (2007-10-12 09:02) [2]

> [1] Skyle © (12.10.07 08:56)
> Таблица подстановки?

Да там как-то просто используя ASCII можно сделать, не врублюсь как&#133

← →
KSergey © (2007-10-12 09:24) [3]

Не, только таблица соответствий.
Т.к. последовательность букв в каждом надоре соответствует соответствующему алфавиту, а не соответствию на клавиатуре (как было уже не помню точно где; вроде в DOS кодировке уже кириллица по алфавиту, хотя могу врать).

← →
Kolan © (2007-10-12 09:31) [4]

Ясно, сделал таблицу. Благодарю&#133

> Kolan © (12.10.07 09:02) [2]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var vk: Word; buf: array [0..1] of Char; kbs: TKeyboardState; begin vk := VkKeyScan(Key); GetKeyboardState(kbs); ToAsciiEx(vk, MapVirtualKey(vk, 0), kbs, buf, 0, $04090409); Key := buf[0]; end;

Обработка ошибок оставлена в качестве дом. задания.

--
Regards, LVT.

> Обработка ошибок оставлена в качестве дом. задания.

О, благодарю :)

Как сделать так, чтобы в Edit вводились только латинские символы? Найти похожие ветки