Как правильно выловить код нажатой клавиши из TWMKey?
dimonf © (2003-02-03 11:40:00)
Народ, помогите, запарился!!! Я использую компанент
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:00) [1]
Неужели нет мыслей?
Наверх 
ЧАТ |
Орешник |
|
