I. Déplacement d'un TEdit à l'autre avec les touches fléchées▲
Nous utiliserons une méthode commune à tous les TEdit qui sera exécutée lors de l'événement OnKeyDown de chaque Tedit :
Sélectionnez
void __fastcall TForm1::EditKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
TWinControl *x;
x = FindNextControl((TWinControl *)Sender, true, false, false);
if(Key == VK_RIGHT) x->SetFocus();
x = FindNextControl((TWinControl *)Sender, false, false, false);
if(Key == VK_LEFT) x->SetFocus();
}