Как проверить нажата ли любая клавиша (в том числе и на мыши)?

[Вадим Буренков]

Как проверить нажата ли любая клавиша (в том числе и на мыши)?

[Stilet]

GetKeyState поиском по форуму. Примеры есть.

[Вадим Буренков]

Как я нашел в одной из справок по функциям

GetKeyState опpеделяет, каково состояние виpтуальной клавиши: поднята, нажата или пеpеключается.

Мне же нужно определить нажата ли любая из клавиш. Например в паскале насколько я помню была функция keypressed. Можно было проверить так:

if keypressed then ...

Ведь не перебирать состояние всех клавиш с помощью GetKeyState.
Или же я что-то не понимаю?

[psycho-coder]

Сообщение от Вадим Буренков

Как проверить нажата ли любая клавиша (в том числе и на мыши)?

Тебе надо проверить в твоей программе или во всей системе, т.е. прога должна ловить хуки?

[Вадим Буренков]

В моей программе.

[psycho-coder]

С мышью надо повозиться, а вот с формой проще. Поставь свойство KeyPreview формы в true. Потом создаешь метод onKeyPress или onKeyDown и там делешь что надо.

procedure TForm1.FormCreate(Sender: TObject);
begin
  Self.KeyPreview := true;
  i := 0;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Inc(i);
  Caption := IntToStr(i);
end;

[ОДИНОЧЕСТВО В СЕТИ]

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
  if Msg.message = WM_KEYDOWN then
    begin
      if Msg.wParam in [{ваша клавиша}] then {ваши действия};
      
    end;
end;

[BaronTreep]

была такая тема, хотя название у неё не "говорящее":

http://programmersforum.ru/showthread.php?t=52392

тоже как вариант.

[BaronTreep]

Я думаю, это для игр может пригодится. Угадал? ))

[Stilet]

Из всего вышеобсмакованного следует логичный вопрос автору: Ловить нажатия только в своем приложении или где угодно?