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

تاريخ الإنتساب : 06-10-2016
تاريخ الميلاد : غير محدد
التوقيت المحلي : 05-07-2020 في 12:08 PM
الحالة : غير متصل

العيد1403 معلومات المنتدى
إنضم إلينا : 06-10-2016
آخر زيارة 01-07-2020, 01:59 PM
إجمالي المشاركات : 16 (0.01 مشاركات في اليوم الواحد | 0.04 في المئة من إجمالي المشاركات)
(إيجاد مشاركات العضو)
اجمالي المواضيع : 4 (0 مواضيع في اليوم | 0.05 في المئه من اجمالي المواضيع)
(إيجاد مواضيع العضو)
فترة البقاء متصل : 1 يوم, 1 ساعة, 17 دقائق
الأعضاء المحالين: 0
Total Thanks Received: 9 (0.01 0.13 per day | 6818 percent of total 0.13)
(Find All Threads Thanked ForFind All Posts Thanked For)
Total Thanks Given: 77 (0.06 1.13 per day | 6838 percent of total 1.13)
(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 إلى إظها...