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

تاريخ الإنتساب : 06-10-2016
تاريخ الميلاد : غير محدد
التوقيت المحلي : 19-04-2019 في 12:15 AM
الحالة : غير متصل

العيد1403 معلومات المنتدى
إنضم إلينا : 06-10-2016
آخر زيارة 7 ساعات قبل
إجمالي المشاركات : 10 (0.01 مشاركات في اليوم الواحد | 0.02 في المئة من إجمالي المشاركات)
(إيجاد مشاركات العضو)
اجمالي المواضيع : 3 (0 مواضيع في اليوم | 0.04 في المئه من اجمالي المواضيع)
(إيجاد مواضيع العضو)
فترة البقاء متصل : 16 ساعات, 8 دقائق, 52 ثواني
الأعضاء المحالين: 0
Total Thanks Received: 9 (0.01 0.19 per day | 4768 percent of total 0.19)
(Find All Threads Thanked ForFind All Posts Thanked For)
Total Thanks Given: 42 (0.05 0.88 per day | 4787 percent of total 0.88)
(Find All Thanked ThreadsFind All Thanked Posts)
  
طريقة لإنشائ 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 إلى إظها...