Стрелки и кнопки управления

@nikolaynik · Регистрация: 27.08.2013

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

Господа, приветствую Вас!

Вопрос уже был задан кучу раз на всех форумах. Однако я для себя так и не нашел решения.

На моей форме Есть несколько объектов TButton. При этом я очень сильно хочу, чтобы при нажатии на стрелочки клавиатуры, происходили определенные события (например выполнялось событие ShowMessage("Hello")

. Однако Все что я получаю, лишь курсор, бегающий от TButton к TButton.
Как быть? Что применить?

C++

//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TButton *Button1;
        TButton *Button2;
        TButton *Button3;
        void __fastcall FormKeyDown(TObject *Sender, WORD &Key,
          TShiftState Shift);
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
 
 
        void __fastcall WMGetDlgCode(TWMNoParams & message);
        BEGIN_MESSAGE_MAP
          VCL_MESSAGE_HANDLER(WM_GETDLGCODE, TWMNoParams, WMGetDlgCode);
        END_MESSAGE_MAP(TForm);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

C++

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::WMGetDlgCode(TWMNoParams & message){
 //
 //message.Result = DLGC_WANTARROWS;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
 
  switch (Key){
  case VK_UP:
  case VK_DOWN:
  case VK_LEFT:
  case VK_RIGHT:
    Memo1->Lines->Add( "Hello" );
    break;
  case VK_F2 :
    Memo1->Lines->Add( "Hello" );
    break;
  }
}
//---------------------------------------------------------------------------

Прикреплю проект для Builder 5

@Dr. Who · 27.08.2013, 12:55

Можно

C++

1 2	Button1->OnKeyDown = FormKeyDown; Button2->OnKeyDown = FormKeyDown;

и т.д.

@nick42 · 27.08.2013, 13:20

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

Вопрос уже был задан кучу раз на всех форумах. Однако я для себя так и не нашел решения.

Я для себя уже нашел...

C++

void __fastcall TForm1::ApplicationEvents1ShortCut(TWMKey &Msg,
      bool &Handled)
{
   if (Msg.CharCode==37) ShowMessage("Лево - не право") ;
   if (Msg.CharCode==38) ShowMessage("Верх - не низ") ;
   if (Msg.CharCode==39) ShowMessage("Право - не лево") ;
   if (Msg.CharCode==40) ShowMessage("Низ - не верх") ;
   Handled = 1;
}

- компонент ApplicationEvents, на событие ShortCut. Handled в 0, если нужно, чтобы после выполнения (ShowMessage) приложение отрабатывало такое нажатие (фокус перемещался по контролам).

@nikolaynik · 29.08.2013, 10:02 **[ТС]**

Ребят, Спасибо!!
Все заработало!! Пришлось конечно, многое менять, потому как ловятся все нажатия независимо от того какая форма в фокусе.. Я переделал примерчик, думаю, для новичков будет полезно.

	29.08.2013, 10:02

Опции темы