كيفية التنقل بين الكونترول باستخدام الاسهم

إستخدم SelectNext وحدث OnKeyDown هذا مثال مبسط للتنقل بين مجموعة من مربعات النص، السهم السفلي سوف يتنقل المؤشر للمربع التالي والمؤشر العلوي سوف ينقل المؤشر للمربع السابق

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_UP : SelectNext(ActiveControl,False,True);
    VK_Down : SelectNext(ActiveControl,True,True);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview := True;
end;

إن لم يمكن يوفي بكل أغراضك، يمكنك الإضافة والتعديل عليه حتى تصل لمبتغاك

شكراً لك اخ محمد على هذا الشرح

فعلاً حصلت على ما اريد