   ______________239

 ,       ,
      - ,  
    .    -
,     ,   Enter   -
   .   ,    
OnKeyDown (.        4.3.2). ,
      Editi     
Edit2,    OnKeyDown  Editi   :

void _fasfcall TFormI: :Edi'tlKeyDown (TObject *Sender, WORD &Key,

TShiftState Shift)
(
if (Key == VK_RETURN) Edit2->SetFocus();

)

    ,    -
,  ,  Enter ( , -
    VK_RETURN).    Enter,   -
  Edit2  SetFocus.

      ,   -
   (,    
  ,        -
 ).       ,   -
      .    -
  FindNextControl,   ,  
 .  ,     -
,     ,   -
   .    :

TWinControl* _fastcall FindNextControl(TWinControl* CurControl,

bool GoForward, bool CheckTabStop,
bool CheckParent);

         CurControl
       .

 GoForward   .    true, 
     ,   CurControl.
   GoForward  false,    -
.

 CheckTabStop  CheckParent   . 
CheckTabStop  true,    ,  
 TabStop   true.  CheckTabStop  false 
TabStop    .   CheckParent  true, 
  ,   Parent   
 , ..    .  CheckPa-
rent  false,   ,     -
.

 ,        -
     Enter,     -
  OnKeyDown     , -
 :

if (Key == VK_RETURN)FindNextControl(

(TWinControl *)Sender, true, true, false)->SetFocus();

      . 
        OnClick:

FindNextControl((TWinControl *)Sender, true, true, false)->SetFocus();