+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : التعامل مع مفاتيح لوحة الكتابة f1 f2 f3 ... (/showthread.php?tid=5401)
التعامل مع مفاتيح لوحة الكتابة f1 f2 f3 ... - s.gsm - 17-07-2013
السلام عليكم ورحمة الله وبركاته
كيف جعل احد أزرار المهام (f1 - f12) يؤدي دور أحد الأزرار
بفرض أن عندي فورم عليه زر هذا الزر يؤدي دور إغلاق البرنامج ، وما أبحث عنه هو أن أجعل زر f2 مثلاً يؤدي نفس دور الزر.
ولكم جزيل الشكر
التعامل مع مفاتيح لوحة الكتابة f1 f2 f3 ... - King SofT - 18-07-2013
وعليكم السلام اخي
هناك طريقتين لهاذا
1- ان تذهب الى الحدث OnClick للزر F2 وتختر F1Click
2- وهي الطريقة البرمجية :
كود :
procedure TForm1.F2Click(Sender: TObject)
begin
F1Click(Self)
endVK_F5 هو الزر F5
كود :
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_F5 then
Button1Click(self)
end;التعامل مع مفاتيح لوحة الكتابة f1 f2 f3 ... - phpbb3 - 19-07-2013
كما قال الاخ King SofT
ولا تنسى من خصائص الفورم KeyPreview := True
التعامل مع مفاتيح لوحة الكتابة f1 f2 f3 ... - s.gsm - 19-07-2013
لم تصلح
ولا هذه أيضاً
كود :
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = vk_f5 then button1.Click;
end;التعامل مع مفاتيح لوحة الكتابة f1 f2 f3 ... - s.gsm - 19-07-2013
شراً أخي king soft
ما صحح الأمر هو ملاحظة الأخ phpbb3 حيث لم أنتبه لها
شكراً جزيلاً