Текущий архив: 2003.02.13;
Скачать: CL | DM;
Вниз
Как правильно выловить код нажатой клавиши из TWMKey? Найти похожие ветки
← →
dimonf © (2003-02-03 11:40) [0]Народ, помогите, запарился!!! Я использую компанент ApplicationEvents, точнее его обработчик ApplicationEventsShortCut. Вот что я делаю:
procedure TfrmDetail.ApplicationEventsShortCut(var Msg: TWMKey;
var Handled: Boolean);
var K : Char;
begin
inherited;
if (Edit1.Focused <> true) and (Char(Msg.CharCode) in [#32..#255]) and
((not (ssAlt in KeyDataToShiftState(Msg.KeyData))
or (not (ssCtrl in KeyDataToShiftState(Msg.KeyData))
or (not (ssShift in KeyDataToShiftState(Msg.KeyData)))))) then
begin
K := Char(msg.CharCode);
Edit1.Text := K;
end;
end;
Запарка в том, что у меня включена русская раскладка клавиатуры и нижний регистр. А при нажатии клавиши, например "а", у меня msg.CharCode = 70 (#70 = "F"). Почему "F" - а не "а".
Как мне избавиться от такой напасти? Обезательно ли проверять раскладку клавиатуры??? И вообще что нужно сделать, что бы все работало правиьно???
← →
dimonf © (2003-02-03 12:13) [1]Неужели нет мыслей?
Страницы: 1 вся ветка
Текущий архив: 2003.02.13;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.016 c
