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

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

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

Kolan ©   (2007-10-12 08:44:00) 

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

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

---

Kolan   (2007-10-12 09:58:00) [1]

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

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

---

Leonid Troyanovsky   (2007-10-12 09:54:00) [2]

> 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.

---

Kolan   (2007-10-12 09:31:00) [3]

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

---

KSergey   (2007-10-12 09:24:00) [4]

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

---

Kolan   (2007-10-12 09:02:00) [5]

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

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

---

Skyle   (2007-10-12 08:56:00) [6]

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

---

Наверх