+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيفية اجبار الفورم على الظهور مرة واحدة فقط (/showthread.php?tid=3869)
كيفية اجبار الفورم على الظهور مرة واحدة فقط - Anter2010 - 11-02-2012
السلام عليكم و رحمة الله تعالى و بركاته
الاخوة الافاضل في بداية تنفيذ البرنامج تظهر نافذة كلمة المرور و بنجاح يتم غلقها بنجاح
الخطأ هو عند منادات نافذة اخري و غلقها تظهر من جديد نافذة كلمة المرور
كيفية اجبار الفورم على الظهور مرة واحدة فقط - kachwahed - 11-02-2012
وعليكم السلام ورحمة الله وبركاته
هناك عدة طرق، هذه إحداها:
في ملف المشروع (dpr):
PHP كود :
begin
Application.Initialize;
if TForm2.Create(Application).ShowModal = 1 {MrOk} then begin
Application.CreateForm(TForm1, Form1);
// Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
end;
Application.Run;
end.
كود :
// Creatfrm2();كيفية اجبار الفورم على الظهور مرة واحدة فقط - Anter2010 - 11-02-2012
السلام عليكم و رحمة الله تعالى و بركاته
مشكور اخي كاش واحد على طريقتك لكن المطلوب ظهور النافذتان معا في نفس الوقت
لكن بعد غلق نافذة المرور يكون السماح لك باستخدام البرنامج
كيفية اجبار الفورم على الظهور مرة واحدة فقط - kachwahed - 11-02-2012
وعليكم السلام ورحمة الله وبركاته
النماذج (Forms) في دلفي تأخذ قيمة False للخاصية Visible عند إنشائها
لإظهار نافتين معا إضبط خاصية Visible على True
---
في مثالك استخدمت FormActivate كحدث لإظهار النموذج الثاني
وهو ما تسبب في ظهور النموذج مرة أخرى عند إعادة حصوله على التفعيل Active
الأفضل أن تستخدم الحدث OnShow...
إذا كنت مصرا على إظهار نموذج واحد، جرب:
PHP كود :
procedure TForm1.FormActivate(Sender: TObject);
begin
try
Creatfrm2();
except
exit;
end;
OnActivate := nil;//مرة واحدة
end;
بالتوفيق.
كيفية اجبار الفورم على الظهور مرة واحدة فقط - Anter2010 - 11-02-2012
السلام عليكم و رحمة الله تعالى و بركاته
بارك الله فيك اخي كاش و احد على المعلومات قد نجح الامر