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

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

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

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

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

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;

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

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

لم تصلح

ولا هذه أيضاً

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

شراً أخي king soft

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

شكراً جزيلاً

s.gsm

King SofT

phpbb3

s.gsm

s.gsm