<p>السلام عليكم</p><p>الاخوة الكرام لدي استفسار عن طريقة اغلاق الفورمات المفتوحة حينما تنتهي مدة زمنية معينة من عدم استخدام البرنامج حيث حينما تنقضي المدة يقوم البرنامج بعمل تسجيل الخروج لليوزر <br></p><p>هاته الاخيرة طبقتها لكن يبقى الفورم الذي كان يعمل عليه مفتوحا و الاصح يغلقها ان كانت كذلك ويبقي فقط على فورم الرئيسي .. شكرا<br></p>
وعليكم السلام ورحمة الله
اعتقد كيفية اغلاق النماذج لا مشكلة لديك فيها
وغير ذلك تحتاج الى اجراء يتحسس نقرات لوحة المفاتيح والفأرة
انا غير عندي اكود او دوال الويندوز التي تتنصت على لوحة المفاتيح والفأرة ولكن بالبحث عنها على الانترنت ستجدها وهي ما تحتاج
<p>
(20-03-2023, 10:49 PM)Delphi4Us كتب : [ -> ]وعليكم السلام ورحمة الله
اعتقد كيفية اغلاق النماذج لا مشكلة لديك فيها
وغير ذلك تحتاج الى اجراء يتحسس نقرات لوحة المفاتيح والفأرة
انا غير عندي اكود او دوال الويندوز التي تتنصت على لوحة المفاتيح والفأرة ولكن بالبحث عنها على الانترنت ستجدها وهي ما تحتاج
</p><p>العكس لدي كود التنصت وهو يعمل عادي المراد هنا كيف نغلق كل فورمات و نبقي على الرئيسي فقط</p><p>الاغلاق حتى ينهي مهام كان المستخدم يقوم بها فان قام مستخدم غيره يسجل دخول تكون الشاشة فارغة <br></p>
<p>
(21-03-2023, 09:57 AM)S.FATEH كتب : [ -> ]السلام عليكم باستخدام 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>