كيفية اجبار الفورم على الظهور مرة واحدة فقط

[Anter2010]

السلام عليكم و رحمة الله تعالى و بركاته
الاخوة الافاضل في بداية تنفيذ البرنامج تظهر نافذة كلمة المرور و بنجاح يتم غلقها بنجاح
الخطأ هو عند منادات نافذة اخري و غلقها تظهر من جديد نافذة كلمة المرور

[kachwahed]

وعليكم السلام ورحمة الله وبركاته
هناك عدة طرق، هذه إحداها:
في ملف المشروع (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]

السلام عليكم و رحمة الله تعالى و بركاته
مشكور اخي كاش واحد على طريقتك لكن المطلوب ظهور النافذتان معا في نفس الوقت
لكن بعد غلق نافذة المرور يكون السماح لك باستخدام البرنامج

[kachwahed]

وعليكم السلام ورحمة الله وبركاته
النماذج (Forms) في دلفي تأخذ قيمة False للخاصية Visible عند إنشائها
لإظهار نافتين معا إضبط خاصية Visible على True
---
في مثالك استخدمت FormActivate كحدث لإظهار النموذج الثاني
وهو ما تسبب في ظهور النموذج مرة أخرى عند إعادة حصوله على التفعيل Active
الأفضل أن تستخدم الحدث OnShow...
إذا كنت مصرا على إظهار نموذج واحد، جرب:

PHP كود :

procedure TForm1.FormActivate(Sender: TObject);
begin
  try
    Creatfrm2();
  except
    exit;
  end;
  OnActivate := nil;//مرة واحدة
end; 


بنفس الطريقة يمكنك استخدام متغير Boolean أو Tag والتحقق منه...
بالتوفيق.

[Anter2010]

السلام عليكم و رحمة الله تعالى و بركاته
بارك الله فيك اخي كاش و احد على المعلومات قد نجح الامر