+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اعمل hotkey لأظهار النموذج في حال كان غير مرئي (/showthread.php?tid=5256)
كيف اعمل hotkey لأظهار النموذج في حال كان غير مرئي - rabihpascal - 25-05-2013
السلام عليكم
كيف اعمل hotkey لأظهار النموذج في حال كان غير مرئي.
كيف اعمل hotkey لأظهار النموذج في حال كان غير مرئي - ALmuhhnad - 26-05-2013
السلام عليكم ورحمة الله وبركاتة
يتوجب عليك عمل 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 .. وبعد ذلك نحن ننفذ امرنا
وهو إظهار النافذة
والسلام عليكم ورحمة الله وبركاتة