Вопрос по ловушке KeyHook

[REDZERG]

Пытаюсь сделать подобие тетриса, фигурки перемещаются стрелками, для отлавливания нажатия стрелок влево/вправо использую Hook, в котором вызывается процедура сдвига.
Загвоздка в следующем: при однократном нажатии на клавишу стрелки процедура сдвига выполняется дважды, (пробовал сдвигать по нажатию кнопки на экране - все нормально, но хочется сделать управление стрелками).

Function KbdLLHookFunc(Code: Integer; wParam, lParam: Integer): LResult; stdcall;
Begin
  case PKbdLLHookStruct(lParam)^.scanCode of
  75:
    begin   //left
      moveleft;
    end;
  77:
    begin    //right
      MoveRight;
    end;
  end;
  result:=1;
  exit;
end;

[Пепел Феникса]

а зачем такой костыль? есть события OnKey* у формы.

[REDZERG]

спс, сейчас попробую

Пепел Феникса, а можно примерчик, чет у меня не получается, просто ничего не происходит(попробовал выводить сообщения при нажатии, клике)

хм... только что попробовал в новой пустой форме, все ок работает, странно

[Stilet]

Выставь для формы KeyPreview. Это позволит перенаправлять нажатия событию OnKeyDown самой формы, и у же в нем описывай что нужно.