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

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

العيد1403 معلومات المنتدى
إنضم إلينا : 06-10-2016
آخر زيارة , 08:45 AM
إجمالي المشاركات : 15 (0.01 مشاركات في اليوم الواحد | 0.03 في المئة من إجمالي المشاركات)
(إيجاد مشاركات العضو)
اجمالي المواضيع : 4 (0 مواضيع في اليوم | 0.05 في المئه من اجمالي المواضيع)
(إيجاد مواضيع العضو)
فترة البقاء متصل : 22 ساعات, 45 دقائق, 18 ثواني
الأعضاء المحالين: 0
Total Thanks Received: 9 (0.01 0.15 per day | 5891 percent of total 0.15)
(Find All Threads Thanked ForFind All Posts Thanked For)
Total Thanks Given: 66 (0.06 1.12 per day | 5911 percent of total 1.12)
(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 إلى إظها...