كيفية انشاء فورم رئيسى ومجموعه من الفرمات الاخرى بشرط فى حاله فتح اى فورم فرعى يتم فتحه داخل الفورم الرئيسى ولا يخرج عنه ويمكن اغلاق الفورم الفرعى له مع ان اغلاق الفورم الرئيسى يتم غلق جميع الفريمات
ملحوظه لقد قمت بعمل فورم رئيسى وفورم فرعى وعند فتح الفورم الرئيسى يفتح معه الفورم الفرعى كيف اتفادى هذه المسأله
ما تريده له علاقة بـ MDI applications
راجع Delphi Help
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
مقال قديم
أضاعوني وأي فتى أضاعـوا * * * ليـوم كــريهـة وســـداد ثغــــر
وخـــــلونـي ومعتـرك المنايـا * * * وقد شـــرعوا أسنــتهم لنحـري
كأني لم أكــــــن فيهـم وسيطـا * * * ولم تك نســبتي في آل عمــرو
أجرر في الجـــوامع كـل يـوم * * * ألا لله مظــــلمتـي وهـصـــري
عسى الملك المجيب لمن دعاه * * * سينجيني فيعلم كيــف شكـري
فأجـــزي بالكرامـة أهـل ودي * * * وأجزي بالضـغينة أهل ضري
كيفية انشاء فورم رئيسى ومجموعه من الفرمات الاخرى بشرط فى حاله فتح اى فورم فرعى يتم فتحه داخل الفورم الرئيسى ولا يخرج عنه ويمكن اغلاق الفورم الفرعى له مع ان اغلاق الفورم الرئيسى يتم غلق جميع الفريمات
ملحوظه لقد قمت بعمل فورم رئيسى وفورم فرعى وعند فتح الفورم الرئيسى يفتح معه الفورم الفرعى كيف اتفادى هذه المسأله
عيدك مبارك
ما الغرض من تكرار السؤال مرة أخرى؟؟؟
هناك ردين في الموضوع في الوصلة أعلاه ولم تقم بابداء أي ملاحظات حولهما ..
تحياتي
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
فى الخاصية position للفورمات الفرعية اختر main form center
----------------------------------------------------------------------
اخى اذا كنت تقصد كيف تجعل مجموعة من الفورمات تظهر حسب ما يريد المستخدم وفى الوقت الذى يريد
فيجب عليك ان على سبيل المثال ان تجعل لكل فورم button خاص به وتكتب فى التالى : formn.show
n: هو رقم الفورم اذا كنت قد تركت التسمية للدلفى ام اذا كنت تسمى كل فورم تنشئه فاكتب اسم الفورم
ارجو ان اكون قد فهمت مرادك
----------------------------------------------------------------------
يبدو أنني أجبت على شيء قديم في تلك المشاركة ..
لابأس على كل حال
المشكله يا اخ ORWA
انه فى كل مره يتم الضغط على الزر يظهر الفوره مره اخرى
هل ممكن ارسال ميثال يفتح فورم2 و فورم 3و فورم 4
بحيث كل فورم غير التانى كل فورم عليه بيانات مختلفه عن الفورم الاخر
عزيزي الحل كما ذكر في الردود السابقة استعمل 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
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
ما الخطاء فى الكود
procedure TfrMain.ChildListClick(Sender: TObject);
begin
IF Form3.Show then
Form3.Close ;
end;
Application.CreateForm(TForm3, Form3);
end;
الحمد الله نجحت فى الوصول الى فتح كل فورم على حدى منفصل عن الاخر
وذلك بوضع unit لكل فورم
فى uses
وفى الحدث onclose
Action:=caFree;
و فى الزر
Application.CreateForm(TForm3, Form3);
و تم الغاء فتح الفورم الفرعى تلقائى
اريد و ضع شرط اذا كان الفورم الفرعى(كل فورم برقم) مفتوح يتم غلقه اولا حتى لا يتكرر فتح الفورم الفرعى
كتبت الكود
IF Form3.Show then
Form3.Close ;
end;
قبل Application.CreateForm(TForm3, Form3)
و عند التشغيل يقف الماوس بعد then
يبدو من ردودك أنك مهتم وقد قمت بأكثر من شئ جيد ...
كود كالآتي قد يساعدك :
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
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
هذا الموضوع مغلق.