ضغط المفاتيح الوظيفية

[yousefwasti]

أود أن يقوم البرنامج بتنفيذ حدث عند الضغط على أحد المفاتيح الوظيفية
f1 أو f2 أو F12

[kachwahed]

السلام عليكم ورحمة الله
أكتب في أحد الأحداث OnKeyDown أو OnKeyUp للنموذج TForm شيء مثل:

كود :

if Key = VK_F1 then //...whatever

ولا تنسى قبل ذلك أن تضبط KeyPreview على True
---
أفضل من ذلك استخدم المكون TActionList قم بإنشاء بعض الأحداث باستخدامه (Actions)
ثم حدد لكل حدث ShortCut الذي تريد
اربط الحدث (Action) مع أي مكون من الخاصية Action.
بالتوفيق.