Форум: "Начинающим";
Текущий архив: 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 можно сделать, не врублюсь как…
← →
KSergey © (2007-10-12 09:24) [3]Не, только таблица соответствий.
Т.к. последовательность букв в каждом надоре соответствует соответствующему алфавиту, а не соответствию на клавиатуре (как было уже не помню точно где; вроде в DOS кодировке уже кириллица по алфавиту, хотя могу врать).
← →
Kolan © (2007-10-12 09:31) [4]Ясно, сделал таблицу. Благодарю…
← →
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.45 MB
Время: 0.039 c
