اغلاق اي فورم مفتوح و الابقاء على الرئيسي

[AgroSoft]

<p>

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

اعتقد كيفية اغلاق النماذج لا مشكلة لديك فيها
وغير ذلك تحتاج الى اجراء يتحسس نقرات لوحة المفاتيح والفأرة
انا غير عندي اكود او دوال الويندوز التي تتنصت على لوحة المفاتيح والفأرة ولكن بالبحث عنها على الانترنت ستجدها وهي ما تحتاج

</p><p>العكس لدي كود التنصت وهو يعمل عادي المراد هنا كيف نغلق كل فورمات و نبقي على الرئيسي فقط</p><p>الاغلاق حتى ينهي مهام كان المستخدم يقوم بها فان قام مستخدم غيره يسجل دخول تكون الشاشة فارغة <br></p>

---

<p>

السلام عليكم باستخدام Screen.Formcount
https://delphi4arab.net/forum/showthread...=Formcount

<br></p><p>حاولت توضيفها لكن يغلق كل البرنامج</p><p>

كود :

for I := 0 to Screen.FormCount -1 do begin TForm(Screen.Forms[i]).close; end;

<br></p>