الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

مغلق
بدأه Anis_King في 15 يوليو 2003 · 6 رد · 985 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

أخواني الكرام :) أريد تحديداً معرفة شفرة أزرار الأسهم بلوحة المفاتيح لكي أتنقل من Edit1 إلى Edit2 عند الضغط عليها ؟ :D

وكوني طماع للمعرفة :P لو كان لأحد أخواننا برنامج يعرض شفرة أي زر من أزرار لوحة المفاتيح :o . نرجوا منحنا أياه . :mad:

والسلام عليكم ورحمة الله وبركاته

#2

السلام عليكم

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

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

#3

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

#4

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

#82

#70

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

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

#5

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

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

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

أو با لهيكسا

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

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

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

project1.zip

#6

السلام عليكم

لكم مني جزيل الشكر على المحاولة بالمساعد، ;) ولكني حاولت ووصلت إلى نتيجة وهي : :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 ولا يوجد معه الكود .

والسلام عليكم ورحمة الله وبركاته

#7

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

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

هذا الموضوع مغلق.

مواضيع مشابهة