التعامل مع مفاتيح لوحة الكتابة f1 f2 f3 ...

[s.gsm]

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

كيف جعل احد أزرار المهام (f1 - f12) يؤدي دور أحد الأزرار
بفرض أن عندي فورم عليه زر هذا الزر يؤدي دور إغلاق البرنامج ، وما أبحث عنه هو أن أجعل زر f2 مثلاً يؤدي نفس دور الزر.
ولكم جزيل الشكر

[King SofT]

وعليكم السلام اخي

هناك طريقتين لهاذا

1- ان تذهب الى الحدث OnClick للزر F2 وتختر F1Click
2- وهي الطريقة البرمجية :

كود :

procedure TForm1.F2Click(Sender: TObject) begin F1Click(Self) end

VK_F5 هو الزر F5

كود :

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_F5 then Button1Click(self) end;

[phpbb3]

كما قال الاخ King SofT

ولا تنسى من خصائص الفورم KeyPreview := True

[s.gsm]

لم تصلح

ولا هذه أيضاً

كود :

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key = vk_f5 then button1.Click; end;

[s.gsm]

شراً أخي king soft

ما صحح الأمر هو ملاحظة الأخ phpbb3 حيث لم أنتبه لها

شكراً جزيلاً