كيف اعمل hotkey لأظهار النموذج في حال كان غير مرئي

[ALmuhhnad]

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

يتوجب عليك عمل Timer او Thread ... لتنصت على حالة الزر الذي تريد ان تضعه كـ Hot-Key

في حالتك ... لنفرض ان الفورم المخفي هو Form1 و الزر الذي تريد ان تتنصت عليه هو F9
نضع Timer ونجعل خاصية Interval = 250 وبعد ذلك نتوجه إلى الحدث الخاث بـTimer وهو OnTimer
ونكتب الكود التالي :

PHP كود :

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if GetAsyncKeyState(VK_F9) <> 0 then // GetAsyncKeyState(VK_F9) << Here we got the State for Key F9.
  begin
    while GetAsyncKeyState(VK_F9) <> 0 do // Here after we entered block "ShowForm1", We wait the user to let the Key "F9"
    begin
    end;
    Form1.Show; // Here we show the Form1
  end;
end; 


وهذا شرح لاسطر الكود بالعربي
if GetAsyncKeyState(VK_F9) <> 0 then :
هنا وضعنا شرط إذا كانت حالة الفتاح F9 غير 0 أي انه تم ضغطه من المستخدم .. ندخل بلوك الشرط(اوامر الشرط)
while GetAsyncKeyState(VK_F9) <> 0 do :
هنا وضعنا نفس الشرط لحلقة فاارغة : لكي ننتظر المستخدم ان يرفع اصبعه عن الزر F9 .. وبعد ذلك نحن ننفذ امرنا
وهو إظهار النافذة

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