كيف يتم الإتنقال إلى خانه معينه في الكود بمجرد الضغط على Enter ؟

[S.FATEH]

السلام عليكم
للانتقال حسب tab order
غير خاصية KeyPreview للـ Form الى True
في حدث OnKeyPress للـ Form

PHP كود :

procedure TForm2.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    SelectNext(ActiveControl, True, True);
end; 


في حالة اردت الانتقال الى مكون محدد مثلا Edit2 عند الضغط على Enter مثلا في الـ Edit1
في حدث OnKeyPress للـ Edit1

PHP كود :

procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  Edit2.SetFocus;
end;