نحن نعلم ، بشكل عام ، بالضغط على مفتاح Tab نقل تركيز الإدخال إلى عنصر التحكم التالي و Shift-Tab إلى السابق في ترتيب علامات التبويب في النموذج. عند العمل مع تطبيقات Windows، يتوقع بعض المستخدمين بشكل بديهي أن يتصرف المفتاح Enter مثل مفتاح Tab.
تتم كتابة الأمثلة أدناه بافتراض عدم وجود زر افتراضي في النموذج. عندما يحتوي النموذج على زر تم تعيين خاصيته الافتراضية إلى True ، فاضغط على Enter at مدة العرض تنفيذ أي رمز موجود في معالج حدث OnClick للزر.
~~~~~~~~~~~~~~~~~~~~~~~~~
الإجراء TForm1.Edit1KeyPress (المرسل: TObject؛ مفتاح var: Char) ؛
ابدأ
إذا مفتاح = # 13 ثم ابدأ
إذا كان HiWord (GetKeyState (VK_SHIFT)) <> 0 إذن
SelectNext (المرسل كـ TWinControl ، خطأ ، حقيقي)
آخر
SelectNext (المرسل كـ TWinControl ، صحيح ، صحيح) ؛
المفتاح: = # 0
النهاية؛
النهاية؛
~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~
الإجراء TForm1.DBGrid1KeyPress (المرسل: TObject؛ مفتاح var: Char) ؛
ابدأ
إذا مفتاح = # 13 ثم ابدأ
إذا كان HiWord (GetKeyState (VK_SHIFT)) <> 0 ، فابدأ
مع (المرسل مثل TDBGrid)
إذا تم تحديده>> ثم
selectedindex: = selectedindex - 1
يبدأ آخر
مصدر البيانات. DataSet. قبل؛
selectedindex: = عدد الحقول - 1 ؛
النهاية؛
تبدأ نهاية آخر
مع (المرسل مثل TDBGrid)
إذا تم تحديد الفهرس selectedindex: = selectedindex + 1
يبدأ آخر
مصدر البيانات. DataSet. التالى؛
selectindex: = 0 ؛
النهاية؛
النهاية؛
المفتاح: = # 0
النهاية؛
النهاية؛
~~~~~~~~~~~~~~~~~~~~~~~~~