Убрать действие по фокусировке с клавиши пробела

@Мускул · Регистрация: 23.06.2018

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

Добрый вечер!
Ещё небольшой вопрос.
Фокусировка клавиш (по Tab) срабатывает не только при нажатии на Enter, но и по клавише Пробел.
А я хочу, что бы клавиша Пробел у меня была задействована на паузу в программе.
Как это сделать,вроде понятно, но фокусировка, я так понял, в приоритете и надо как-то её отключить для клавиши Пробела.
Можно это как-то сделать?
Спасибо!

@D1973 · 15.07.2018, 05:51

Сообщение от Мускул

Фокусировка клавиш (по Tab) срабатывает не только при нажатии на Enter, но и по клавише Пробел.

Не совсем понял, что Вы хотели сказать этой фразой... Перевод фокуса с одного контрола на другой осуществляется по умолчанию только клавишей TAB, это стандартное поведение Windows-приложений и если Вы сами это поведение не переопределяли - то и для Вашего приложения это будет верно. А если переопределяли - то видите это только Вы сами, т.к. кода Вашего у нас перед глазами нет.

@Мускул · 15.07.2018, 09:02 **[ТС]**

Виноват, косноязычен оказался.
С переводом фокуса всё в порядке, клавиша TAB.
И когда нажимаешь на Enter, то происходит отработка клавиши, как при ее нажатии. Тут тоже нет вопросов.
Но когда нажимаешь на клавишу Пробела, то тоже срабатывает клавиша(которая в фокусе), так как будто я нажимал на саму кнопку или на клавишу Enter. Хотя я никаких усилий к этому не прикладывал. Мне это не надо.
Я бы хотел назначить Пробелу действие паузы при работе одной процедуры.
Для этого создал для формы 1 процедуру:

Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = VK_Space then
 begin
  if Zagruzka=True
     then Pauza := True
     else Form1.Label2.Caption:='...';
 end;
end;

Но клавиша Пробела продолжает реагировать как и раньше, отрабатывая клавишу в фокусе. Отработает Паузу, если только фокус будет на кнопке "Пауза".
Вот у меня и возник вопрос, как заставить клавишу Пробела реагировать на созданную процедуру.
То ли что-то не так с этой процедурой и надо делать по другому?
Спасибо!

@Human_foot · 15.07.2018, 10:25

Перед последним end добавить Key := 0

@D1973 · 15.07.2018, 10:41

Свойство формы KeyPreview в true выставили? У меня такой код отрабатывает, как надо:

Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = VK_SPACE then
  begin
   Key := 0;
   Pause := not Pause;
   if Pause then Label1.Caption := 'Pause' else Label1.Caption := '';
  end;
end;

Вот только не совсем удачная, на мой взгляд, клавиша для паузы выбрана... А если надо какой-либо текст ввести многословный, тогда как? Хотя, если текст не вводится - то и так сойдет, но лучше все же пробел с каким-нибудь модификатором: Ctrl или Shift...

@Мускул · 15.07.2018, 11:37 **[ТС]**

D1973, спасибо за помощь.
Всё заработало.
У меня никто ничего не вводит, сойдет и так.

Новые блоги и статьи Все статьи Все блоги /
BOINC: 22 года — и всё ещё работает Programma_Boinc 12.03.2026 BOINC: 22 года — и всё ещё работает Дэвид Андерсон написал ретроспективу. Кратко: в 2001 году он ушёл из United Devices, где был CTO, и за несколько месяцев написал ядро BOINC — клиент, сервер,. . .	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@Мускул 0 / 0 / 0 Регистрация: 23.06.2018 Сообщений: 13

	Убрать действие по фокусировке с клавиши пробела 14.07.2018, 20:29. Показов 1544. Ответов 5 Метки нет (Все метки) Добрый вечер! Ещё небольшой вопрос. Фокусировка клавиш (по Tab) срабатывает не только при нажатии на Enter, но и по клавише Пробел. А я хочу, что бы клавиша Пробел у меня была задействована на паузу в программе. Как это сделать,вроде понятно, но фокусировка, я так понял, в приоритете и надо как-то её отключить для клавиши Пробела. Можно это как-то сделать? Спасибо! 0

@Human_foot 156 / 114 / 36 Регистрация: 27.06.2018 Сообщений: 257
	15.07.2018, 10:25
	Перед последним `end` добавить `Key := 0` 1

@Мускул 0 / 0 / 0 Регистрация: 23.06.2018 Сообщений: 13
	15.07.2018, 11:37 [ТС]
	D1973, спасибо за помощь. Всё заработало. У меня никто ничего не вводит, сойдет и так. 0

Убрать действие по фокусировке с клавиши пробела

Решение