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

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

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : جعل الزر يعمل بنفس التأتير عند الضغط عليه بزر الماوس (/showthread.php?tid=12192)

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

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

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

[صورة: 167490623138931.png]

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

RE: جعل الزر يعمل بنفس التأتير عند الضغط عليه بزر الماوس - لؤي - 29-01-2023

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

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

RE: جعل الزر يعمل بنفس التأتير عند الضغط عليه بزر الماوس - Mr.DOS - 29-01-2023

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

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

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

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