Symulacja klawisza TAB Enterem

[rafalskraba]

Witam,

mam na formatce umieszczony komponent GroupBox w którym znajduje się kolka pól edycyjnych Edit.
Jak zrobić w zdarzeniu dla formatki OnKeyPress symulację klawisza TAB enterem.

Poniższy kod nie chce działać:

Kod: Zaznacz cały


if(Key == VK_RETURN)
{
   Key=0;
   SelectNext(Form1->ActiveControl, true,true);
}


Proszę o wskazówkę

Pozdrawiam

Rafał

[Corvis]

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

//--------------------------------------------------------------------
void SendKey(int keycode){
   keybd_event(keycode,0,0,0);
   keybd_event(keycode,0,KEYEVENTF_KEYUP,0);
}
//--------------------------------------------------------------------
 

Masz tutaj funkcję która to zrobi. Wywołaj ją tak:

Kod: Zaznacz cały

SendKey(VK_TAB);

Tab to chyba 0x09

[rafalskraba]

Witaj,

niestety podany przez ciebie kod nie działa.

Funkcję

Kod: Zaznacz cały

SendKey(VK_TAB);

umieściłem w zdarzeniu OnKeyPress formatki

[Corvis]

No to nie bardzo rozumiem co chcesz osiągnąć.

Chcesz jak ktoś wciśnie Enter żebyś od razu potem zasymulował naciśnięcie klawisza TAB ??

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
    : TForm(Owner)
{
    this->KeyPreview = true;
}
//---------------------------------------------------------------------------
void SendKey(int keycode){
   keybd_event(keycode,0,0,0);
   keybd_event(keycode,0,KEYEVENTF_KEYUP,0);
}
//---------------------------------------------------------------------------
void __fastcall TForm3::FormKeyPress(TObject *Sender, wchar_t &Key) {
    if(Key == VK_RETURN) {
        SendKey(VK_TAB);    
    }
}
//---------------------------------------------------------------------------
 

U mnie działa na formie mam 2 edity i jak nacisnę Enter to przechodzi do edita numer 2. Zobacz czy masz na formie ustawione KeyPreview na true

[rafalskraba]

Ok jezeli będą same Edity na gołej formatce to bedzie działać.
Funkcja którą podałem w pierwszym poście tak właśnie działa.
Wstaw pola edycyjne do komponentu GroupBox z zobacz czy wtedy będzie działać.

[Corvis]

Mój sposób działa - GroupBox na nim 2 edity działa.
Inna opcja GroupBox na nim 2 edity, po za nim 2 inne. Przeskakuje przez każdy edit.

[Cyfrowy Baron]

Może rafalskraba zapomniał o tym:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

this->KeyPreview = true;

Można to też włączyć w Obiect Inspector Properties dla formularza, którego ma dotyczyć.

[Corvis]

Też tak myślę

[rafalskraba]

Witam ponownie

faktycznie nie zaznaczyłem KeyPreview.

Tym oto sposobem obydwa rozwiazania są poprawne.

Wielkie dzieki