جعل الزر يعمل بنفس التأتير عند الضغط عليه بزر الماوس

[addidou230]

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

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



هذا التأثير بالماوس اريد هذا التأثير أن يعمل عند ربط الزر الذي في الدلفي بأزرار الكيبورد 
مثلا الزر يحمل القيمة 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; 


[Mr.DOS]

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

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

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

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