Движение пока нажата клавиша Delphi 7

@Geonix · Регистрация: 07.07.2012

Author24 — интернет-сервис помощи студентам

Подскажите пожалуста как сделать в delphi 7 движение объекта пока нажата клавиша (Например нажал клавишу "D" и shape сдвигается в право, отжал клавишу, и shape остановится), нужна только проверка на зажатие
Всем спасибо за любую помощь =)

@Puporev · 14.07.2012, 19:21

Delphi    
        
    Скопировано
1
2
3
4
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key='D' then Shape1.Left:=Shape1.Left+5;
end;

@Geonix · 14.07.2012, 19:28 **[ТС]**

Не работает =(

@Puporev · 14.07.2012, 19:30

С какой стати? У меня работает. Жми именно клавишу D, а не d,в,В

@volvo · 14.07.2012, 19:33

KeyPreview формы выставлено в True? Тогда должно работать.

@Geonix · 14.07.2012, 19:33 **[ТС]**

Понятия не имею, все комбинации перепробовал =(((

@Puporev · 14.07.2012, 19:35

Ты весь мой код скопировал или инициировал событие OnkeyPress в инспекторе оюбъектов для формы?

@Geonix · 14.07.2012, 19:36 **[ТС]**

Заработало, действительно KeyPreview фальс стоял =))) а как убрать задержку нажатия? ну как залипание, вроде, например движение без задержек, не лазя в настройки клавы панели управления???

@Puporev · 14.07.2012, 19:38

Сообщение от Geonix

а как убрать задержку нажатия?

В каком смысле? Что тебе нужно?

@Geonix · 14.07.2012, 19:40 **[ТС]**

Извините за таки странные вопросы=)
Так вот, когда я зажимаю клавишу d, shape движится 1 раз и через время движится постоянно, нужно чтоб он сразу постоянно двигался, как такое сделать?

@Puporev · 14.07.2012, 19:41

Так ты же написал

Сообщение от Geonix

движение объекта пока нажата клавиша

я так и сделал.

Одиночка · 14.07.2012, 20:44

Там в настройках клавиатуры есть задержка перед началом повтора. Потом идёт автоповтор и получаются, как бы, повторные нажатия согласно скорости повтора из тех же настроек. Можно использовать таймер и следующий код. Тогда те параметры не играют роли.

Delphi    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  If GetAsyncKeyState(Ord('D'))<>0 Then
  Shape1.Left:=Shape1.Left+5; //По "D" - влево (маленькая или большая - неважно)
  If GetAsyncKeyState(Ord('A'))<>0 Then
  Shape1.Left:=Shape1.Left-5; //По "A" - влево
End;

Timer.Enabled - установить в True и Timer.Interval - можно 5 (или экспериментируй).

Новые блоги и статьи Все статьи Все блоги /
Логирование в C# ASP.NET Core с помощью Serilog, ElasticSearch, Kibana stackOverflow 25.04.2025 Помните те времена, когда для анализа проблемы приходилось подключаться к серверу, искать нужный лог-файл среди десятков других и вручную фильтровать тысячи строк в поисках ошибки? К счастью, эти дни. . .	Структура "железный OnKeyUp" вместо антидребезга. Полностью асинхронный счётчик. Hrethgir 25.04.2025 Программа для симуляции схемы - Logisim Evolution В общем какое-то время отвлёкся, так было надо, теперь когда запилю это на verilog и FPGA , досоставлю заявку в ФИПС на полезную модель - не готов. . .	Автоматизация Amazon Web Services (AWS) с Boto3 в Python py-thonny 25.04.2025 Облачные вычисления стали неотъемлемой частью современной ИТ-инфраструктуры, а Amazon Web Services (AWS) занимает лидирующие позиции среди провайдеров облачных услуг. Управление многочисленными. . .	Apache Kafka vs RabbitMQ в микросервисной архитектуре ArchitectMsa 25.04.2025 Современная разработка ПО всё чаще склоняется к микросервисной архитектуре — подходу, при котором приложение разбивается на множество небольших, автономных сервисов. В этой распределённой среде. . .	Параллельное программирование с OpenMP в C++ NullReferenced 24.04.2025 Параллельное программирование — подход к созданию программ, когда одна задача разбивается на несколько подзадач, которые могут выполняться одновременно. Оно стало необходимым навыком для. . .
Цепочки методов в C# с Fluent API UnmanagedCoder 24.04.2025 Современное программирование — это не только решение функциональных задач, но и создание кода, который удобно поддерживать, расширять и читать. Цепочки методов и Fluent-синтаксис в C# стали мощным. . .	Мульти-тенантные БД с PostgreSQL Row Security Codd 23.04.2025 Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .	Реализация конвейеров машинного обучения с Python и Scikit-learn AI_Generated 23.04.2025 Мир данных вокруг нас растёт с каждым днём, и умение эффективно обрабатывать информацию стало необходимым навыком. Специалисты по машинному обучению ежедневно сталкиваются с задачами предобработки. . .	Контроллеры Kubernetes Ingress: Сравнительный анализ Mr. Docker 23.04.2025 В Kubernetes управление входящим трафиком представляет собой одну из ключевых задач при построении масштабируемых и отказоустойчивых приложений. Ingress — это API-объект, который служит вратами. . .	Оптимизация кода Python с Cython и Numba py-thonny 23.04.2025 Python прочно обосновался в топе языков программирования благодаря своей простоте и гибкости. Разработчики любят его за читабельность кода и богатую экосистему библиотек. Но у этой медали есть и. . .

@Geonix 0 / 0 / 0 Регистрация: 07.07.2012 Сообщений: 15

	Движение пока нажата клавиша Delphi 7 14.07.2012, 18:46. Показов 5315. Ответов 11 Метки нет (Все метки) Подскажите пожалуста как сделать в delphi 7 движение объекта пока нажата клавиша (Например нажал клавишу "D" и shape сдвигается в право, отжал клавишу, и shape остановится), нужна только проверка на зажатие Всем спасибо за любую помощь =) 0

@Geonix 0 / 0 / 0 Регистрация: 07.07.2012 Сообщений: 15
	14.07.2012, 19:28 [ТС]
	Не работает =( 0

@Puporev Почетный модератор 64312 / 47609 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	14.07.2012, 19:30
	С какой стати? У меня работает. Жми именно клавишу D, а не d,в,В 0

@volvo Супер-модератор 33138 / 21432 / 8221 Регистрация: 22.10.2011 Сообщений: 36,753 Записей в блоге: 9
	14.07.2012, 19:33
	KeyPreview формы выставлено в True? Тогда должно работать. 0

@Geonix 0 / 0 / 0 Регистрация: 07.07.2012 Сообщений: 15
	14.07.2012, 19:33 [ТС]
	Понятия не имею, все комбинации перепробовал =((( 0

@Puporev Почетный модератор 64312 / 47609 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	14.07.2012, 19:35
	Ты весь мой код скопировал или инициировал событие OnkeyPress в инспекторе оюбъектов для формы? 0

@Geonix 0 / 0 / 0 Регистрация: 07.07.2012 Сообщений: 15
	14.07.2012, 19:36 [ТС]
	Заработало, действительно KeyPreview фальс стоял =))) а как убрать задержку нажатия? ну как залипание, вроде, например движение без задержек, не лазя в настройки клавы панели управления??? 0

@Geonix 0 / 0 / 0 Регистрация: 07.07.2012 Сообщений: 15
	14.07.2012, 19:40 [ТС]
	Извините за таки странные вопросы=) Так вот, когда я зажимаю клавишу d, shape движится 1 раз и через время движится постоянно, нужно чтоб он сразу постоянно двигался, как такое сделать? 0