أريد معرفة شفرة كل أزرار لوحة المفاتيح ؟

السلام عليكم

هناك نوعان حسب علمي

two events

1-press key

للاحرف (يمكنك معرفه شفره كل حرف من جدول ascii

2-key down

مثل ازرار ال f1,f2 esc ,ydvi

vk_f3

vk_f1

لل f1 ,f3

,وهكذا.....

لزر التحرك

يمين vk_right

up vk_up

saleh2003

شكراً للمشاركة أخي saleh2003 ولكن هل جربت أي من الطريقتين لمعرفة الشفرة والتأكد منها :rolleyes: ؟

أخى كود الأسهم فوق وتحت

#82

#70

إذا كنت تريد الكود الخاص بهما بالآسكى

لو كنت قد فهمتك غلط ارجو توضيح طلبك وبإذن الله احاول مساعدتك

بسم الله الرحمن الرحيم

مشكلتك لها الحل عندي لقد عانيت كثيرا من هذه المشكلة من قبل

و لقد قمت بعمل برنامج يعطيل ترميز كل زر إن كان بالاسكي

أو با لهيكسا

فقط شغل البرنامج ثم اضغط الزر الذي تريد

حمله من هذا الرابط

أخوك أنس(gift)(gift)(gift)

project1.zip

لكم مني جزيل الشكر على المحاولة بالمساعد، ;) ولكني حاولت ووصلت إلى نتيجة وهي : :eek:

المثال الأول :

1) كون Form1 جديد .

2) ثم نزل عليها Edit1 .

3) ثم أكتب في On KeyPress بتاع الـ Edit1 الأتي :

ShowMessage(IntToStr(Ord(Key))) ;
Exit ;

4) نفذ F9 وستجد النتائج الناقصة .

ملاحظة لن تعرف شفرة كل المفاتيح .

المثال الثاني :

نفس المثال الاول ولكن ضع الكود في الـ On Key Up :

وستجد كل الشفرات ما عدا F11 و F12 .

أساس الفكرة :

كيف أنتقل من Edit2 إلى Edit1 بالسهم العلوي (38#) و من Edit2 إلى Edit3 بالسهم السفلي (40#) ، وهكذا نستمر ؟

الجواب :

1 في الـ On Key Up للـ Edit2 أكتب التالي :

Case Key Of
38 : Begin
              Edit1.Setfocuse ;
              Exit ;
       End ;
40 : Begin
              Edit3.SetFocuse ;
              Exit ;
       End ;
End ;

ولا تكتب الـ# قبل الشفرة .

ونرجوا الإستفادة للجميع .

ويا أخي أنس anassoso ما حصلنا عليه منك كان Project1.exe ولا يوجد معه الكود .

أخي قم بأضافة Label على الفورم واضافة الكود التالي

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Label1.Caption:=Chr(Key)+' - '+IntToStr(Key);
end;