كيف يمكن استدعاء جميع الفورم 1 او 2 او 3 او 4 او 5 داخل panel1

[dahmane26]

كيف يمكن استدعاء جميع الفورم 1 او 2 او 3 او 4 او 5 داخل panel1 عند الضغط على كل زر لاستدعاء الفورمات مثل الصور المرفقة

[تلميذ]

اهلا و سهلا اخ دهمانى نورت المنتدى

حسب علمى البسيط اخى الحبيب يمكنك بكل بساطة ان تكتب داخل حدث كل زر اسم الفورم المطلوب استدعائه كمثال :

;AboutFrm.Show

هذه طريقة استدعاء فورم باسم ابوت مثلا او اسم اخر انت تريده للفورم و سميته به
طبعا بيكون الكود بشكل كامل هكذا :

كود :

procedure TMainForm.A2Click(Sender: TObject); begin AboutFrm.Show; end;

طبعا انا سميت الزر هنا باسم A2Click وهو الذى سيستدعى الفورم عند الضغط عليه

[Snyder]

مثال زر اظهار الفورم2

كود :

var F2: TForm2; begin F2 := TForm2.Create(Self); F2.Parent := panel1; F2.Top:=0; F2.Left:=0; F2.Show end;

[hamou1982]

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

[maosalah]

السلام عليكم ورحمة الله تعالى وبركاته

اضف Parent لل Form

Form1.parent := pane1;
form1.show;

Form2.parent := pane1;
form2.show;