الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

انشاء فورم رئيسى

مغلق
بدأه mo_zamzam في 29 ديسمبر 2005 · 17 رد · 1,958 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

ملحوظه لقد قمت بعمل فورم رئيسى وفورم فرعى وعند فتح الفورم الرئيسى يفتح معه الفورم الفرعى كيف اتفادى هذه المسأله

#2

ما تريده له علاقة بـ MDI applications

راجع Delphi Help

"First they ignore you, then they laugh at you, then they attack you, then you win"

===

اقتباس

حُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا

هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا

الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا

القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ

لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ

البردوني "أبو تمام وعروبة اليوم" 1971

===

اقتباس
عبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــم

و تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم

ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم

أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟

ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا

البردوني "نحن و الحاكمون "

#3

مقال قديم

MDI.rar

أضاعوني وأي فتى أضاعـوا * * * ليـوم كــريهـة وســـداد ثغــــر

وخـــــلونـي ومعتـرك المنايـا * * * وقد شـــرعوا أسنــتهم لنحـري

كأني لم أكــــــن فيهـم وسيطـا * * * ولم تك نســبتي في آل عمــرو

أجرر في الجـــوامع كـل يـوم * * * ألا لله مظــــلمتـي وهـصـــري

عسى الملك المجيب لمن دعاه * * * سينجيني فيعلم كيــف شكـري

فأجـــزي بالكرامـة أهـل ودي * * * وأجزي بالضـغينة أهل ضري

منتديات الرياضيات العربية

#4

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

ملحوظه لقد قمت بعمل فورم رئيسى وفورم فرعى وعند فتح الفورم الرئيسى يفتح معه الفورم الفرعى كيف اتفادى هذه المسأله

#5

عيدك مبارك

ما الغرض من تكرار السؤال مرة أخرى؟؟؟

/index.php?showtopic=84637

هناك ردين في الموضوع في الوصلة أعلاه ولم تقم بابداء أي ملاحظات حولهما ..

تحياتي

"First they ignore you, then they laugh at you, then they attack you, then you win"

===

اقتباس

حُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا

هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا

الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا

القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ

لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ

البردوني "أبو تمام وعروبة اليوم" 1971

===

اقتباس
عبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــم

و تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم

ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم

أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟

ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا

البردوني "نحن و الحاكمون "

#6

فى الخاصية position للفورمات الفرعية اختر main form center

----------------------------------------------------------------------

010.gif

#7

الغرض من تكرار السؤال هو كيف يمكن فتح الفورم الفرعى و ليس تكرار الفور

او فتح الفورم الفرعى مره واحده فقط

الميثال المرفق يقوم بتكرار الفورم

mdi.zip

#8

خليك معاى

----------------------------------------------------------------------

010.gif

#9

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

فيجب عليك ان على سبيل المثال ان تجعل لكل فورم button خاص به وتكتب فى التالى : formn.show

n: هو رقم الفورم اذا كنت قد تركت التسمية للدلفى ام اذا كنت تسمى كل فورم تنشئه فاكتب اسم الفورم

ارجو ان اكون قد فهمت مرادك

----------------------------------------------------------------------

010.gif

#10

حسب ما فهمت من كلامك يجب استخدام MDI

- ضع فورمين بالتطبيق

- أضبط الخاصية Form Style إلى FSmdiForm للفورم الرئيسي

- أما للفورم الآخر تضبطها إلى FSmdiChild

طبعا تطبيقات MDI لها تعقيد أكبر , حاول الاستفاضة عنها

الملف المرفق مثال بسيط :

mdi.zip

#11

يبدو أنني أجبت على شيء قديم في تلك المشاركة ..

لابأس على كل حال

#12

المشكله يا اخ ORWA

انه فى كل مره يتم الضغط على الزر يظهر الفوره مره اخرى

#13

هل ممكن ارسال ميثال يفتح فورم2 و فورم 3و فورم 4

بحيث كل فورم غير التانى كل فورم عليه بيانات مختلفه عن الفورم الاخر

#14

عزيزي الحل كما ذكر في الردود السابقة استعمل MDI Application أو غير في خصائص كل فورم بحيث يكون هناك فورم رئيسي fsMDIForm والبقية fsMDIChild ...

الفورم الأساسي من النوع TForm1

ليكن لدينا ثلاثة انواع :

TForm2 وفيه Memo1

TForm3 وفيه Panel1

TForm4 وفيه RichEdit1

نعرف دالة جديدة ولتكن CreateMDIChild وفيها يتم تحديد ما هو نوع الفورم المراد

شئ كهذا

  private
    { Private declarations }
    procedure CreateMDIChild (Name:string;ChildType:integer);
//....
procedure TForm1.CreateMDIChildType(Name: string; ChildType: integer);
var
child:TForm;
begin
case childtype of
1:
  begin
    child:=TForm2.Create(Application);
    Child.Caption := Name;
  end;
2:
  begin
    child:=TForm3.Create(Application);
    Child.Caption := Name;
  end;
3:
  begin
    child:=TForm4.Create(Application);
    Child.Caption := Name;
  end;
end;
end;

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

تم تعديل هذه المشاركة بواسطة cipher في 12 يناير 2006 في 08:04

"First they ignore you, then they laugh at you, then they attack you, then you win"

===

اقتباس

حُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا

هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا

الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا

القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ

لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ

البردوني "أبو تمام وعروبة اليوم" 1971

===

اقتباس
عبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــم

و تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم

ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم

أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟

ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا

البردوني "نحن و الحاكمون "

#15

ما الخطاء فى الكود

procedure TfrMain.ChildListClick(Sender: TObject);

begin

IF Form3.Show then

Form3.Close ;

end;

Application.CreateForm(TForm3, Form3);

end;

#16

الحمد الله نجحت فى الوصول الى فتح كل فورم على حدى منفصل عن الاخر

وذلك بوضع unit لكل فورم

فى uses

وفى الحدث onclose

Action:=caFree;

و فى الزر

Application.CreateForm(TForm3, Form3);

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

اريد و ضع شرط اذا كان الفورم الفرعى(كل فورم برقم) مفتوح يتم غلقه اولا حتى لا يتكرر فتح الفورم الفرعى

كتبت الكود

IF Form3.Show then

Form3.Close ;

end;

قبل Application.CreateForm(TForm3, Form3)

و عند التشغيل يقف الماوس بعد then

#17

الميثال

12.rar

#18

يبدو من ردودك أنك مهتم وقد قمت بأكثر من شئ جيد ...

كود كالآتي قد يساعدك :

var
  I: Integer;
begin
//...
  with Form1 do
    for I := MDIChildCount-1 downto 0 do
      if (MDIChildren is TForm3) then
       begin
         ShowMessage('Form3 has been created');
         //Do what you want here
         //exit;
       end;
//....
end;

ربما تكون هناك حلول أخرى (ليس لدي وقت لتجربة غيرها ) , عليك بالرجوع الى Delphi Help ...

حظ موفق ..

"First they ignore you, then they laugh at you, then they attack you, then you win"

===

اقتباس

حُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا

هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا

الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا

القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ

لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ

البردوني "أبو تمام وعروبة اليوم" 1971

===

اقتباس
عبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــم

و تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم

ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم

أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟

ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا

البردوني "نحن و الحاكمون "

هذا الموضوع مغلق.

مواضيع مشابهة