Как правильно выловить код нажатой клавиши из 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]

Неужели нет мыслей?

Как правильно выловить код нажатой клавиши из TWMKey? Найти похожие ветки