用向下箭头模拟TAB键问题

用向下箭头模拟TAB键问题 unit1.cpp

//---------------------------------------------------------------------------

#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::FormKeyDown(TObject *Sender, WORD &Key,       TShiftState Shift) {   bool GoForward;   if (Key == VK_DOWN)     GoForward = true;   else if (Key == VK_UP)     GoForward = false;   else     return;   SelectNext(ActiveControl, GoForward, true); } //---------------------------------------------------------------------------

void __fastcall TForm1::GroupBox1Enter(TObject *Sender) {   ActiveControl = Edit1;  } //---------------------------------------------------------------------------

unit1.h

//---------------------------------------------------------------------------

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