Форум: "Начинающим";
Текущий архив: 2007.11.04;
Скачать: [xml.tar.bz2];

Вниз

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

---

← →
Leonid Troyanovsky ©   (2007-10-12 09:54) [5]

> 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:58) [6]

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

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

---

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

Форум: "Начинающим";
Текущий архив: 2007.11.04;
Скачать: [xml.tar.bz2];

Наверх

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