25-11-2014, 08:41 PM
كيف يمكن استدعاء جميع الفورم 1 او 2 او 3 او 4 او 5 داخل panel1 عند الضغط على كل زر لاستدعاء الفورمات مثل الصور المرفقة
![[صورة: attachment.php?attachmentid=4585&d=1416944477]](http://delphi4arab.net/forum/attachment.php?attachmentid=4585&d=1416944477)
26-11-2014, 12:39 PM
اهلا و سهلا اخ دهمانى نورت المنتدى
حسب علمى البسيط اخى الحبيب يمكنك بكل بساطة ان تكتب داخل حدث كل زر اسم الفورم المطلوب استدعائه كمثال :
;AboutFrm.Show
هذه طريقة استدعاء فورم باسم ابوت مثلا او اسم اخر انت تريده للفورم و سميته به
طبعا بيكون الكود بشكل كامل هكذا :
طبعا انا سميت الزر هنا باسم A2Click وهو الذى سيستدعى الفورم عند الضغط عليه
حسب علمى البسيط اخى الحبيب يمكنك بكل بساطة ان تكتب داخل حدث كل زر اسم الفورم المطلوب استدعائه كمثال :
;AboutFrm.Show
هذه طريقة استدعاء فورم باسم ابوت مثلا او اسم اخر انت تريده للفورم و سميته به
طبعا بيكون الكود بشكل كامل هكذا :
كود :
procedure TMainForm.A2Click(Sender: TObject);
begin
AboutFrm.Show;
end;طبعا انا سميت الزر هنا باسم A2Click وهو الذى سيستدعى الفورم عند الضغط عليه
26-11-2014, 01:55 PM
مثال زر اظهار الفورم2
كود :
var
F2: TForm2;
begin
F2 := TForm2.Create(Self);
F2.Parent := panel1;
F2.Top:=0;
F2.Left:=0;
F2.Show
end;27-12-2014, 10:04 PM
السلام عليكم ورحمة الله تعالى وبركاته
وهذه بعض التعديلات التي قمت بها حتى لا تبقى النوافذ كلها مفتوحة كل ما ضغطت على فتح نافذة
هذا مثال من محاولتي لتعديل الكود
إن اصبت فهو من مفضل الله وان أخطأت فمن نفسي
وهذه بعض التعديلات التي قمت بها حتى لا تبقى النوافذ كلها مفتوحة كل ما ضغطت على فتح نافذة
هذا مثال من محاولتي لتعديل الكود
إن اصبت فهو من مفضل الله وان أخطأت فمن نفسي
30-12-2014, 05:15 PM
السلام عليكم ورحمة الله تعالى وبركاته
اضف Parent لل Form
Form1.parent := pane1;
form1.show;
Form2.parent := pane1;
form2.show;
اضف Parent لل Form
Form1.parent := pane1;
form1.show;
Form2.parent := pane1;
form2.show;