ايران ويج

نسخه‌ی کامل: كار با فرم MDI
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
سلام
آقا خيلي دنبال اين موضوع گشتم اما جوابم رو نگرفتم.
.
.
من يه برنامه دلفي دارم كه 1 فرم اصلي ( پدرformstily = fsMDIForm و Form1) داره و 2 فرم فرعي ( فرزند formstily = fsMDIChilde و Form2 , Form3 ).حالا بايد 2 فرم فرعي توي فرم اصلي باز و يا بسته بشن البته 2 فرم فرعي فقط از طريق فرم اصلي باز و يا بسته ميشن.
حالا مشكل اينجاست كه نمي تونم فرم هاي فرعي ( فرزند ) رو از توي فرم اصلي ( پدر ) باز و يا بسته كنم.
از دستورات زير هم استفاده كردم اما جواب نداد و همش ارور مي ده:
کد:
Form2.show;
Form2.showmodal;
showwindow(Form2.handle,SW_Show);
Showwindow(Form2.handle,SW_Hide);
ّ.
.
توي اكثر تالارها و فروم ها مثالهاي زيادي زدن اما متاسفانه اكثر مثالها درباه باز كردن يه عكس توي فرم MDI هست . يعني توي فرم فرزند چيزي غير از يه كامپوننت Image نيست اما توي فرم هاي فرعي من كامپوننتهاي زيادي هست و هر موقعه كه لازم بود باز بشن و يا بسته .
.
.
در حقيقت مي خوام برنامه من يه فرم داشته باشه كه بغيه فرمها و پنجره ها توي اين فرم باز بشن.
ببخشيد سوال Ultra مبتدي بود.
با تشكر
سلام
بعد از کلي گشتن ميشه با دستور زير مثلا براي رويداد يه کليد ، فرم فرعي ( فرزند) رو باز کني
procedure TForm1.Button1Click(Sender: TObject);
var
x:TForm2;
begin
x:=TForm2.Create(Form1);
x.FormStyle:=fsMDIChild;
end;
حالا مشکل اينجاست که با زدن کليد به تعداد فرم هاي باز شده افزايش ميابه
چطور بايد چک کرد که فرم فرعي الان بازه يا نه ؟
ممنون