delphi4arab منتديات دلفي للعرب

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

عند الضغط على اي زر في الفورم عن طريق الفأرة نلاحط تأثير الضغطة بتغير لون الزر وعمل تأثير معين مثل مافي الصورة

[صورة: 167490623138931.png]

هذا التأثير بالماوس اريد هذا التأثير أن يعمل عند ربط الزر الذي في الدلفي بأزرار الكيبورد
مثلا الزر يحمل القيمة 1 عند الضغط على زر 1 من الكيبورد يحصل نفس التأتير الذي يحصل عند الضغط بزر الفأرة

وعليكم السلام
مثال بسيط وقم بالبناء عليه

PHP كود :
procedure TForm1.ButtonedEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = VK_RETURN) and (ssCtrl in Shift) then
    ButtonedEdit1RightButtonClick(Sender);
end; 

سلام عليكم
عليك معرفة متى تستعمل keydown و keyup المتغير يكون عبارة عن word مثل vk_return
ومتى تستعمل keyPress المتغير يكون عبارة عن char مثل 13#

دون ان تنسى تفعيل الخاصية keypreview للفورم self
true : حتى تتأثر العناصر الموجودة على الفورم بالحدث الضغط على اي زر المطلوب
false : أنت مظطر لتحديد كل عنصر لوحده وتنفيذ الحدث ...

اضافة اخرى حتى وان كانت واضحة من اسمها

keydown : عند الضغط على الزر (ينفذ الحدث ويبقى مستمر لو لم تقم برفع اصبعك عن الزر )
keyup : عند رفع اصبعك عن الزر (يتم تنفيذ الحدث)
keypress : يتم تنفيذ الحدث بغض النضر عن استمرار الضغط او عند رفع اصبعك عن الزر

addidou230

لؤي

Mr.DOS