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();
}