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

[AgroSoft]

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

[Delphi4Us]

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

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

[S.FATEH]

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

[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>

[S.FATEH]

السلام عليكم

PHP كود :

var
  I: Integer;
begin
  for I := 0 to Screen.FormCount - 1 do
  begin
    if TForm(Screen.Forms[i]) = Form1 then Continue;
    TForm(Screen.Forms[i]).Close;
  end;