العيد1403
(مبرمج جديد)
**

تاريخ الإنتساب : 06-10-2016
تاريخ الميلاد : غير محدد
التوقيت المحلي : 16-12-2018 في 05:33 AM
الحالة : غير متصل

العيد1403 معلومات المنتدى
إنضم إلينا : 06-10-2016
آخر زيارة 06-12-2018, 04:24 PM
إجمالي المشاركات : 7 (0.01 مشاركات في اليوم الواحد | 0.02 في المئة من إجمالي المشاركات)
(إيجاد مشاركات العضو)
اجمالي المواضيع : 2 (0 مواضيع في اليوم | 0.02 في المئه من اجمالي المواضيع)
(إيجاد مواضيع العضو)
فترة البقاء متصل : 13 ساعات, 1 دقيقة, 49 ثواني
الأعضاء المحالين: 0
Total Thanks Received: 8 (0.01 0.19 per day | 4309 percent of total 0.19)
(Find All Threads Thanked ForFind All Posts Thanked For)
Total Thanks Given: 32 (0.04 0.74 per day | 4327 percent of total 0.74)
(Find All Thanked ThreadsFind All Thanked Posts)

بيانات العضو العيد1403
البريد : قم بمراسلة العيد1403 بالبريد .
مراسلة خاصة : أكتب لـ العيد1403 رسالة خاصة .
  
طريقة لإنشائ MDIChild 3
طريقة لإنشائ MDIChild Lazarus - Free Pascal - CrossKylix - Kylix - CrossVCL
السلام عليكم


نعلم أنه هناك مشكل في إنشاء MDIChild في لازاروس لكني من خلال بحث في اليوتيوب وجدت طريقة لإنشاء MDIChild سوف أحاول أن أشرحها و بتصرف مني
فتح مشروع جديد Application و إضافة إليه Form2 ليكن عندنا نموذجين بحيث نضيف في Unit1 تحت كلمة implementation ما يلي
PHP كود :
uses Unit2 


نضيف لل Form2 أداة Edit1 وأداة Button1 ونغير خصائص النمودج Form2 كما يلي


PHP كود :
BorderStyle bsNone 
PHP كود :
Caption ='' 
وفي حدث Create للـ Form2 نكتب هذا الكود

PHP كود :
[align=left]
Top :=0;
 
Left :=0;[/align


وفي الحدث Show لل Form2 نكتب الكود التالي


PHP كود :
Edit1.Text := Form2.Name
أما بالنسبة لـButton1 نغير الخاصية Caption إلى إغلاق وفي حدث Click نكتب
PHP كود :
Form2.Close 
أما في النمودج الأول نضع أداة MainMenu1 وننشأ القائمة MenuItem1 ونغير الخاصية Caption للقائمة MenuItem1 إلى إظهارالنمودج وفي حدث Click للقائمة MenuItem1 نكتب كما يلي


PHP كود :
[align=left]
Form2:=TForm2.Create(Self);
 
Form1.InsertControl(Form2);
 
Form2.show;[/align


لو ننفذ البرنامج و نضغط على MenuItem1 يظهر نمودج بإسم Form2_1 على شكل­ MDIChild لكن هناك مشكلة وهي كلما ضغطنا على MenuItem1 يظهر نودج أخرة Form2_n ولإقاف ذلك ولنجعل البرنامج يعمل مع نمودج واحدة نغير الكود في Click للقائمة MenuItem1 كما يلي


PHP كود :
[align=left]if Trim(Form2Caption) = '' then
 Begin
 Form2
:=TForm2.Create(Self);
 
Form1.InsertControl(Form2);
 
End;
 
Form2.show[/align
;
وفي الحدث Show لل Form2 نكتب الكود التالي

PHP كود :
[align=left]
Edit1.Text := Form2.Name;
 
Form2Caption := 'إسم النمودج' ;[/align