السلام عليكم
عند الرغبة بعرض إطار (form2) ضمن إطار أخر (form1) بدون إستخدام الـ MDI بإستختام الكود
procedure TForm1.Button1Click(Sender: TObject); begin if form2 = nil then form2 := tform2.CreateParented(form1.handle); form2.show; end;
تكون الخاصية Active لـ form2 تساوي false بالتالي لن تكون أدوات form2 قابلة للعمل و يمكن حل الموضوع بإستخدام
sendmessage(form2.handle,WM_NCACTIVATE,ord(true),0);
فكرة بسيطة أحببت أن أذكرها لعلها تواجه أحد الأخوة
و السلام ختام
تم تعديل هذه المشاركة بواسطة rober في 9 أكتوبر 2008 في 20:12
I'm Away For Sometimes
I'll Finish My Works
Come Back Soon
More Study > More Search > More Try > More Learning > Great Success
السلام عليكم اقدر اجرب الكود مع اي اصدار من اصدارات الدلفي ؟
شيء ثاني مالمقصود ب DMIالله يبارك فيك ، مشكور سلفا
تم تعديل هذه المشاركة بواسطة ساره دلفي في 10 أكتوبر 2008 في 00:56
ساره دلفي كتب:السلام عليكم اقدر اجرب الكود مع اي اصدار من اصدارات الدلفي ؟
شيء ثاني مالمقصود ب DMIالله يبارك فيك ، مشكور سلفا
أنا مجرب مع Delphi5 أكيد يعمل مع باقي الإصدارات
بالنسبة للـ MDI هي عمل نافذة رئيسية للمشروع و باقي النوافذ تكون نوافذ فرعية كأقرب مثال (Access) و المثال المرفق يبين الطريقتين
مع ملاحظة الخاصية formstyle و الحدث onclose للإطارات و أنه يتم إنشاء الإطار الفرعي عند طلبه فقط و ليس عند بدء البرنامج
أرجو أن أكون قد وفقت بالشرح و إن كان هناك خطأ أن يصححه الأخوة
و السلام ختام
I'm Away For Sometimes
I'll Finish My Works
Come Back Soon
More Study > More Search > More Try > More Learning > Great Success
