+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : اغلاق اي فورم مفتوح و الابقاء على الرئيسي (/showthread.php?tid=12249)
اغلاق اي فورم مفتوح و الابقاء على الرئيسي - AgroSoft - 20-03-2023
<p>السلام عليكم</p><p>الاخوة الكرام لدي استفسار عن طريقة اغلاق الفورمات المفتوحة حينما تنتهي مدة زمنية معينة من عدم استخدام البرنامج حيث حينما تنقضي المدة يقوم البرنامج بعمل تسجيل الخروج لليوزر <br></p><p>هاته الاخيرة طبقتها لكن يبقى الفورم الذي كان يعمل عليه مفتوحا و الاصح يغلقها ان كانت كذلك ويبقي فقط على فورم الرئيسي .. شكرا<br></p>
RE: اغلاق اي فورم مفتوح و الابقاء على الرئيسي - Delphi4Us - 20-03-2023
وعليكم السلام ورحمة الله
اعتقد كيفية اغلاق النماذج لا مشكلة لديك فيها
وغير ذلك تحتاج الى اجراء يتحسس نقرات لوحة المفاتيح والفأرة
انا غير عندي اكود او دوال الويندوز التي تتنصت على لوحة المفاتيح والفأرة ولكن بالبحث عنها على الانترنت ستجدها وهي ما تحتاج
RE: اغلاق اي فورم مفتوح و الابقاء على الرئيسي - S.FATEH - 21-03-2023
السلام عليكم باستخدام Screen.Formcount
https://delphi4arab.net/forum/showthread.php?tid=5553&highlight=Formcount
RE: اغلاق اي فورم مفتوح و الابقاء على الرئيسي - AgroSoft - 25-03-2023
<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<br></p><p>حاولت توضيفها لكن يغلق كل البرنامج</p><p>
https://delphi4arab.net/forum/showthread.php?tid=5553&highlight=Formcount
كود :
for I := 0 to Screen.FormCount -1 do
begin
TForm(Screen.Forms[i]).close;
end;RE: اغلاق اي فورم مفتوح و الابقاء على الرئيسي - S.FATEH - 25-03-2023
السلام عليكم
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;