Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.14;
Скачать: CL | DM;

Вниз

Проблема с определением нажат ли Shift в Windows 98   Найти похожие ветки 

 
Gigant   (2003-12-26 01:14) [0]

У меня есть две функции, одна из которых определяет прижат ли shift в данный момент, а другая включён ли CapsLock.

function IsShiftPressed : Boolean;
begin
Result:=0<>(GetKeyState(VK_SHIFT) and 128);
end;

function IsCapsLockOn : Boolean;
begin
Result:=0<>(GetKeyState(VK_CAPITAL) and $01);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if IsShiftPressed then label1.caption:="shift"
else label1.caption:="not shift";
if IsCapsLockOn then label2.caption:="caps"
else label2.caption:="not caps";
end;

В Windows ХР они работаеют нормально, но в 98 если моё приложение активно, то тоже всё нормально, а если моё приложение не активно и я нажимаю шифт (включаю капс лок) в другом приложении, то эти функции не реагируют. С чем это связано и как от этого избавиться?


 
tesseract ©   (2003-12-26 09:52) [1]

всё правильно в 2000/XP программа не уничтожает сообщения клавиатурные адресованные другой программе а WIN98 это благополучно делает, выход - пиши хук пропускающий через себя всё, и выбирай, что нужно


 
Gigant   (2003-12-26 15:50) [2]

Всё ясно, спасибо, вот ведь фигня!



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

Текущий архив: 2004.03.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
14-43890
Думкин
2004-02-20 15:39
2004.03.14
С днем рождения! 20 февраля.


14-43802
}|{yk
2004-02-23 10:31
2004.03.14
Ура! FireBird 1.5 stable вышел!


1-43633
Ivolg
2004-03-02 12:29
2004.03.14
Стрелки


14-43763
ИМХО
2004-02-19 01:14
2004.03.14
Новый агент 007


1-43638
GrTik
2004-03-02 13:02
2004.03.14
TCheckListBox - событие checked