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

أحتاج مساعدتكم في التحكم بلوحة المفاتيح Keybaord

بدأه مدمن ++C في 11 أغسطس 2008 · 10 رد · 1,171 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

كل العادة... مشاكلي مع برمجة الألعاب لا تنتهي أبداً

>_>

وهذه المرة بطريقة التحكم بلوحة المفاتيح

===========================

أنا أستخدم مكتبة GLScene في البرمجة

أستطيع الرسم في المكتبة... ولكني اريد ان اتحكم ببعض العناصر بلوحة المفاتيح

بالأسهم

حاولت عدة مرات... وبحثت عن دروس مفيدة لهذه المكتبة

ولكن محاولاتي وتجاربي باتت بالفشل

لذا لجأت أليكم يا أخواني

فأرجو المساعدة

#2

اخي يمكنك إستعمال function IsKeyDown

ثم اضف الوحدة keyboard للـ uses clause

قبل ذلك يجب ان تحمل الوحدة keyboard الموجودة في : CVS version

وهي موجودة في : source/base folder/keyboard.pas/

والله المستعان

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

#4
من هنا ثم إختر Keyboard.pas

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

#5

تسلم اخوي وما تقصر... جزاك الله خير:)

لكن ممكن توريني طريقة كتابة الشيقرة؟!

لو سمحت...^^

فقط توريني كيف مثلاً اجعل العنصر إذا ضغط على سهم يسار يتجه لليسار

إذا كتبته أكير بفهم^^

طلبتك لا تخذلني

انتظر ردك بفارغ الصبر

#6

أخي الكريم الكود يشير إلى العملية المطلوبة

أرجو أن يفيدك

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = 37 then
label1.Caption := 'you press left';
if key = 38 then
label1.Caption := 'you press up';
if key = 39 then
label1.Caption := 'you press right';
if key = 40 then
label1.Caption := 'you press down';
end;

للعلم مجرب على دلفي 5

تم تعديل هذه المشاركة بواسطة rober في 12 أغسطس 2008 في 16:42

I'm Away For Sometimes

I'll Finish My Works

Come Back Soon

More Study > More Search > More Try > More Learning > Great Success

#7
مدمن ++C كتب:
تسلم اخوي وما تقصر... جزاك الله خير:)

لكن ممكن توريني طريقة كتابة الشيقرة؟!

لو سمحت...^^

فقط توريني كيف مثلاً اجعل العنصر إذا ضغط على سهم يسار يتجه لليسار

إذا كتبته أكير بفهم^^

طلبتك لا تخذلني

انتظر ردك بفارغ الصبر

اخي العزيز إبحث عن كيفية التحكم بالكيبورد في الدلفي

واظن ان الاخ rober اعطاك مثال .

الله المستعان

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

#8

شكراً لك أخي روبر على المثال الرائع... للعلم انا استعمل دلفي 7

بجربه ألحينه^^

===

أخي موهفا...

أنا أبحث وابحث... وانقب

وإن لم اعثر.. آتي هنا^^

#9

لقد فشلت كل محاولاتي.... لم أعرف ماذا أفعل

لقد يأست... لا أعرف ماذا أفعل الآن:(

للعلم اني اقوم بالعمل على مكتبة GLScene على دلفي 7

وكل محاولاتي فاشلة

أتمنى لو أجد شرح لكيفية تحريك العناصر في GLScene

لكن الحلم بعيد

#10

تفضل اخي :

إستعمال الكيبورد

دروس

------------------------------------------------

والله ياخي العزيز يوجد هناك شئ إسمه GOOGLE . فهناك لاتسمع شئ إسمه لم اجد ماابحث عليه.

إذاماذا ستفعل لتكمل مشروعك .

الله المستعان

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

#11

ههههههههههههههههههههههههههههههه

من قال لك اني لم ادخل delphigamedev ؟؟؟

دخلته وفتشت وشاركت في منتدااه

ولعلمك انا بحثت في GOOGLE و YAHOO

ولازلت ابحث...

على العموم تسلم على مساعدات... وما قصرت

جزاك الله ألف خير

والظاهر إن بترك البرمجة بسبب فشل محاولاتي

سلام:)

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