Главная страница
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.035 c
14-43882
тихий вовочка
2004-02-19 15:29
2004.03.14
осенние цыплята и Delphi


1-43517
Grinder
2004-02-22 15:56
2004.03.14
высота колонки в list view


3-43386
Serj
2004-02-14 13:51
2004.03.14
Как отключить благодарность за выбор DBISAM


3-43294
Noname
2004-02-12 09:26
2004.03.14
SQL приведение типов


1-43578
Ш-К
2004-02-27 15:20
2004.03.14
Как из события передать указатель на объект в мой обработчик?