Przenieś do następnej kontrolki po naciśnięciu ENTER

[Ho88it]

No właśnie...
Jest coś takiego co pozwala po naciśnięciu Tabulatora poruszać się po formularzu według kolejnych liczb we właściwości TabOrder
Ma ktoś pomysł jak to zrobić po naciśnięciu ENTER będąc w jakimś aktualnym obiekcie?

[Corvis]

Poczytaj w helpie o metodzie SetFocus()

[Ho88it]

SetFocus() to funkcja dla obiektu o konkretnej nazwie... A mi chodzi o przeskakiwanie po obiektach według TabOrder bez konkretnej nazwy. Jak bym zrobił to po nazwach, to przy zmianie kolejności musiał bym wszystkie przejrzeć ręcznie i klepać kupę kodu, a tak wystarczy zmiana numeru TabOrder nawet w głupiej pętli.

[Cyfrowy Baron]

Ustaw właściwość KeyPreview formularza na którym znajdują się komponenty na true, a następnie utwórz dla tegoż formularza zdarzenie OnKeyUp:

Kod: Zaznacz cały

void __fastcall TForm1::FormKeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
static int tabOrder = 1; // poczÄ…tek TabOrder
if(Key == 13) // przycisk ENTER
{
  lab_1: // etykieta powrotu
  TComponent *Temp;
  for(int i = this->ComponentCount - 1; i >= 0; i--)
  {
   Temp = this->Components[i];
   if(reinterpret_cast<TForm *>(Temp)->TabOrder == tabOrder)
   {
   reinterpret_cast<TForm *>(Temp)->SetFocus();
   tabOrder++;
   return;
   }
  }
  tabOrder = 0;
  goto lab_1;// powrót do poczÄ…tku kodu po wyszukaniu ostatniego komponentu
}
}
//---------------------------------------------------------------------------


[Ho88it]

A mnie w wojsku uczyli nie używać goto

[Witold]

Ustaw właściwość KeyPreview formularza na którym znajdują się komponenty na true, a następnie utwórz dla tegoż formularza zdarzenie OnKeyUp:

Kod: Zaznacz cały

//...
   if(reinterpret_cast<TForm *>(Temp)->TabOrder == tabOrder)
//...


To rozwiązanie wywali błąd (Access violation at address ....) jeżeli umieści się na formie niektóre z komponentów które nie są win-kontrolkami np.: TOpenDialog lub TTimer (sprawdzałem Turbo C++ i BCB). Ciekawe czemu tylko na niektórych ??? Np. po rzutowaniu reinterpret_cast<TForm *>(Temp) dla kontrolki typu TApplicationEvents która przecież nie ma właściwości TabOrder jest spokój.

[Cyfrowy Baron]

Co za problem! RozwiÄ…zanie jest banalnie proste:

Kod: Zaznacz cały

//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
static int tabOrder = 1; // poczÄ…tek TabOrder
if(Key == 13)
{
  lab_1:
  TComponent *Temp;
  for(int i = this->ComponentCount - 1; i >= 0; i--)
  {
   Temp = this->Components[i];
   try{
   if(reinterpret_cast<TForm *>(Temp)->TabOrder == tabOrder)
   {
   reinterpret_cast<TForm *>(Temp)->SetFocus();
   tabOrder++;
   return;
   }
   }catch(...){;}
  }
  tabOrder = 0;
  goto lab_1;
}
}
//---------------------------------------------------------------------------


[Witold]

Co za problem! RozwiÄ…zanie jest banalnie proste:

Proste jest, ale dalej można odwołać się do właściwości TabOrder dla obiektu klasy, która jej nie ma, tyle że teraz "wyłapujesz" protesty systemu z tym związane.

[Cyfrowy Baron]

No cóż! Cudów nie ma. Można by się pokusić o funkcję sprawdzającą, czy wskazana klasa pochodzi od TWinControl, ale to by tylko niepotrzebnie skomplikowało kod, a wystarcza samo przechwytywanie komunikatów.