Горячие клавиши - обойти наведение фокуса и привязать клавиши клавиатуры к кнопкам на форме

@cizer · Регистрация: 10.01.2011

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

всем доброго времени суток. столкнулся с такой проблемой. требуется чтобы при нажатии определенных кнопок на клавиатуре соответственно срабатывали кнопки на форме (к примеру на нажатие пробела у меня должна срабатывать Button2, на Enter должна срабатывать Button3, на стрелки должен изменяться прогресс в Gauge).
пробовал описать эти кнопки в функции FormKeyDown. они срабатывают, но только на тех кнопках, на которые наведен фокус. есть ли возможность обойти наведение фокуса и привязать клавиши клавиатуры к кнопкам на форме?

@Samrisbe · 01.03.2012, 07:24

В инспекторе объектов главной формы KeyPreview поставь в положение true.

C++

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if ((Key == 'L'))
      {
      Button1Click(Sender);
      }
}

@nick42 · 01.03.2012, 12:46

- установите нужные клавиши "горячими"__

C++

void __fastcall TForm1::FormCreate(TObject *Sender)
{
   RegisterHotKey(Handle,1,0,VK_SPACE);
   RegisterHotKey(Handle,3,0,VK_RETURN);
   RegisterHotKey(Handle,5,0,VK_LEFT);
   RegisterHotKey(Handle,6,0,VK_RIGHT);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
   UnregisterHotKey(Handle,1);
   UnregisterHotKey(Handle,3);
   UnregisterHotKey(Handle,5);
   UnregisterHotKey(Handle,6);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg,
      bool &Handled)
{
 if ((Msg.message == WM_HOTKEY)&&(Msg.wParam == 1)) Button1Click(0);
 if ((Msg.message == WM_HOTKEY)&&(Msg.wParam == 3)) Button3Click(0);
 if ((Msg.message == WM_HOTKEY)&&(Msg.wParam == 5)) ProgressBar1->Position -=1;
 if ((Msg.message == WM_HOTKEY)&&(Msg.wParam == 6)) ProgressBar1->Position +=1;
}

@BRcr · 01.03.2012, 17:19

Samrisbe, маленькая поправка, коли ТС пожелает использовать приведенный вами код - в обработчик Button1Click() не стоит передавать параметром Sender, ведь в этом случае туда прилетит указатель на форму, что может быть неожиданно в некоторых ситуациях. Лучше так:

C++

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if ((Key == 'L'))
      {
      Button1Click(Button1); // передаем указатель на нажимаемую кнопку, раз уж мы знаем, что нажимаем
      }
}

@cizer · 01.03.2012, 19:00 **[ТС]**

Samrisbe, BRcr проблема осталась. я попробовал записать на кнопку пробела код. итог - функцию вызывает 2 раза. и вызывает только на кнопке, у которой есть фокус
nick42 понятия не знаю в чем дело, но код не работал. реакции программы никакой

@cizer · 14.03.2012, 20:08 **[ТС]**

C++

void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg,
      bool &Handled)
{
 if ((Msg.message == WM_HOTKEY)&&(Msg.wParam == 1)) Button1Click(0);
 if ((Msg.message == WM_HOTKEY)&&(Msg.wParam == 3)) Button3Click(0);
 if ((Msg.message == WM_HOTKEY)&&(Msg.wParam == 5)) ProgressBar1->Position -=1;
 if ((Msg.message == WM_HOTKEY)&&(Msg.wParam == 6)) ProgressBar1->Position +=1;
}

куда создавать эту функцию?? что то не работает

@BRcr · 14.03.2012, 20:21

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

что то не работает

Весьма информативно

Ошибки выдает? Успешность регистрации hotkeys проверяли? И не используете ли вы, случаем, параметр Sender в обработчиках Button1Click() и Button3Click()?

@cizer · 14.03.2012, 21:04 **[ТС]**

ошибок не выдает, но и не работает. нажатия на кнопки не пытается отлавливать. функция TForm1::ApplicationEvents1Message описана была в protected. параметр Sender я тоже прописывал. не помогло

Добавлено через 5 минут
я пытался просто посмотреть есть ли вообще реакция на нажатия клавиш.

C++

1
2
3

if ((Msg.message == WM_HOTKEY)&&(Msg.wParam == 1)) {a++;Label3->Caption=IntToStr(a);}
 if ((Msg.message == WM_HOTKEY)&&(Msg.wParam == 5)) {b++;Label4->Caption=IntToStr(b);}
 if ((Msg.message == WM_HOTKEY)&&(Msg.wParam == 6)) {c++;Label5->Caption=IntToStr(c);}

Добавлено через 28 минут
все. разобрался с кодом. спасибо)

@BRcr · 14.03.2012, 21:12

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

все. разобрался с кодом. спасибо)

Ну, дык и поведайте всем об этом - в чем крылась ваша проблема и как вы ее устранили?
Кому-нибудь это может пригодиться - прочитает и не наступит уже на ваши грабли.

@cizer · 26.03.2012, 22:08 **[ТС]**

ну получается что код правильный. стоило в нем только разобраться.
объясню на примере:

C++

1	RegisterHotKey(Handle,1,0,VK_SPACE);

Handle - параметр менять не надо. 1 - индивидуальный код для сообщения, которое вы пытаетесь отловить, 0 - в данном случае служит параметром, что отлавливается только 1 нажатая клавиша (есть несколько вариантов сочетания), VK_SPACE - клавиша, которая отлавливается.

но вместе с тем появилась и новая проблема. я поставил отлавливание пробела. его отловило и сделало то что надо, но если открыты другие приложения, то в них пробел напрочь не работает!!! моя программа все равно его перехватывает. как это исправить???

@cizer 14 / 14 / 7 Регистрация: 10.01.2011 Сообщений: 146
		1
	Горячие клавиши - обойти наведение фокуса и привязать клавиши клавиатуры к кнопкам на форме 29.02.2012, 23:33. Показов 6907. Ответов 9 Метки нет (Все метки) всем доброго времени суток. столкнулся с такой проблемой. требуется чтобы при нажатии определенных кнопок на клавиатуре соответственно срабатывали кнопки на форме (к примеру на нажатие пробела у меня должна срабатывать Button2, на Enter должна срабатывать Button3, на стрелки должен изменяться прогресс в Gauge). пробовал описать эти кнопки в функции FormKeyDown. они срабатывают, но только на тех кнопках, на которые наведен фокус. есть ли возможность обойти наведение фокуса и привязать клавиши клавиатуры к кнопкам на форме? 0

@cizer 14 / 14 / 7 Регистрация: 10.01.2011 Сообщений: 146
	01.03.2012, 19:00 [ТС]	5
	Samrisbe, BRcr проблема осталась. я попробовал записать на кнопку пробела код. итог - функцию вызывает 2 раза. и вызывает только на кнопке, у которой есть фокус nick42 понятия не знаю в чем дело, но код не работал. реакции программы никакой 0

@BRcr 4043 / 2332 / 292 Регистрация: 03.02.2011 Сообщений: 5,066 Записей в блоге: 10
	14.03.2012, 20:21	7
	Сообщение от cizer что то не работает Весьма информативно Ошибки выдает? Успешность регистрации hotkeys проверяли? И не используете ли вы, случаем, параметр Sender в обработчиках Button1Click() и Button3Click()? 0

@BRcr 4043 / 2332 / 292 Регистрация: 03.02.2011 Сообщений: 5,066 Записей в блоге: 10
	14.03.2012, 21:12	9
	Сообщение от cizer все. разобрался с кодом. спасибо) Ну, дык и поведайте всем об этом - в чем крылась ваша проблема и как вы ее устранили? Кому-нибудь это может пригодиться - прочитает и не наступит уже на ваши грабли. 1

	26.03.2012, 22:08

Горячие клавиши - обойти наведение фокуса и привязать клавиши клавиатуры к кнопкам на форме

Решение