سلسلة تعـــــــلم دلـــــفي

demon · 04-07-2005, 18:23

مقدمة إلى Borland Delphi :
تعلم معنا دلفي ، وأنشئ تطبيقك الأول من خلال هذه المقالة :

ماذا تعرف عن دلفي؟

الدلفي هي بيئة برمجة متطورة.بنيت اعتمادا على لغة البرمجة باسكال,تناسب كلا من المبتدئ والمحترف ,تستطيع باستخدام الدلفي أن تبني تطبيقات سهلة الاستخدام ,عالية الكفاءة,خاصة بك في وقت قصير جدا وأقل عدد من التعلميات.

بيئة سطح المكتب المتكاملة في دلفي:

The Delphi IDE ( integrated desktop environment):

عندما تبدأ مع دلفي فستواجهك واجهة المستخدم ومن هنا يمكنك تصميم وترجمة وإصلاح أخطاء تطبيقاتك.

مثل معظم البرامج تحوي بيئة سطح المكتب المتكاملة في دلفي عدة نوافذ منفصلة وهي كالتالي :

شريط القوائم , شريط الأدوات: The menus, toolbars

يحوي شريط الأدوات على مجموعة من الاختصارات للعمليات والأوامر المستخدمة بكثرة مثل تنفيذ مشروع ,إضافة فورم جديدة, على كل حال ضع رأس الفأرة على الزر وستعرف ما وظيفة كل زر.

لوحة العناصر The Component Palette :

كما في أي تطبيق للتصميم هناك عدد من الأغراض المختلفة مثل الأزرار buttons وصناديق النصوص , text boxes أزرار الاختيار radio buttons, ……check boxesالخ.

تدعي هذه الأغراض في المصطلحات البرمجية للدلفي بالعناصر (components) أو تسمي بالمتحكمات (controls).

تتوضع هذه العناصر في لوحة مبوبة يحوي كل باب مجموعة من العناصر المرتبة حسب الوظيفة التي تقوم بها.

لتضع أي عنصر على الفورم اضغط عليه من لوحة العناصر و اسحبه إلى الفورم..

انقر على السهم اليميني أو اليساري عند حافة الشريط للتنقل بين العناصر

مفتش العناصر,شجرة الإظهار ,نافذة الفورم,متحري التعليمات

عندما تنشئ مشروع جديد في دلفي تظهر النافذة التالية والتي تدعى بالفورم,كما ترى لهذه الفورم عنوان وأزرار التكبير والتصغير والإغلاق.

Form1 window

إذا ضغطت f12 فسوف تظهر النافذة التي سوف تكتب عليها الكود (هذه النافذة تظهر الكود الخاص بالفورم الحالية) وتسمى بالوحدةunit .

انتبه بينما أنت تصمم واجهاتك فإن دلفي تقوم بتوليد كود أغراض باسكال الأساسية (Object Pascal the underlying code ):

Unit1.pas - the Code Editor window

بعد ذلك تستطيع أنت إضافة تعليماتك الخاصة.

مفتش العناصر The Object Inspector

كل عنصرفي دلفي له مجموعة من الخصائص مثل اللون الحجم مكن التوضع على الفورم,العنوان,......أيضا كل فورم له مجموعة من الخصائص مثل اللون الحجم مكان التوضع في النافذة, العنوان,.....

هذه الخصائص ممكن تغيرها في وضعين:

إما في وقت التصميم وهنا تصبح هذه التغيرات دائمة حتى تغيرها مرة أخرى في وقت التصميم ,وقت التنفيذ تكتب تعليمات لتغيرها وهنا تحصل هذه التغيرات فقط عند تحقق الشروط التي حددتها بها في وقت التنفيذ .

كما تتميز هذه العناصر بمجموعة من الأحداث مثلا عند ضغط الفأرة يتفعل(يقدح) الحدث *

وهكذا.. Oncreate وعند إنشاء الفورم يقدح الحدث Onkeypress

شجرة الإظهار:

فوق مفتش العناصر تظهر نافذة شجرة الإظهار, ووظيفتها هي إظهار العناصر الموجودة على الفورم.

لإغلاق دلفي:

سيظهر مربع حوا ر للتأكيد على حفظ المشروع exit ثم file القائمة من لاتحفظ التغيرات في هذه الجلسة.

أنشئ تطبيقك الأول:

الآن بعدما حملت الدلفي على الجهاز وفتحت البرنامج فبشكل افتراضي سوف تبني دلفي مشروع جديد,يتجسد هذا المشروع بالفورم الفارغة التي تراها أمامك:

الآن : أغلق كل شيئ وافعل مايلي:

كيف تفتح مشروع جديد؟

من القائمة fileثم new ثم application:

الآن وقد أنشأت مشروع جديد أي new application لنبدأ بالتطبيق الأول:

التمرين الأول سوف يكون كتابة Hello Delphi و إظهارها على شريط عنوان الفورم .

طريقة أولى:

وهنا لن نستخدم أي تعليمة:

أنظر بجانب الفورم سوف تجد object inspector هذا القسم يحتوي على جميع خصائص الفورم:

اذهب إلى خاصيةcaption وهي تغير عنوان الفورم ،غيرها وأكتب بسم الله الرحمن الرحيم

طريقة أخرى:

سوف نعمل هذه التغيرات بكتابة كود:

هنا يأتي دور الـ unit اضغط مرة مزدوجة على الفورم أو f12 فيظهر الـ unit وقد قامت دلفي كما ذكرت بإنشاء الكود الأساسي الذي سوف تكتب داخله تعليماتك:

procedure TForm1.FormCreate(Sender: TObject);

begin

//this is where your code goes

end

اذهب إلى object inspector ثم إلى قسم Events إلى سطر OnCreate اضغط ضغطة مزدوجة فتظهر المكان الذي سوف تكتب فيه وأكتب التالي:

procedure TForm1.FormCreate(Sender: TObject);

begin

Caption := ' بسم الله الرحمن الرحيم ';

end

اضغط F9 (اختصار لعملية الـ compile) أو اضغط المثلث الأخضر أو من قائمة Run ثم اختر الأمر run وشاهد النتائج:

تهانينا قد صممت مشروعك الأول في دلفي .

أرجو أن يكون هذا الدرس سهل الفهم والأفكار واضحة.

اكتب أي سؤال يخطر ببالك على هذه الصفحة وانتظر الرد.

نصيحة:

حاول حفظ أسماء الأغراض والعناصر والمصطلحات بشكل عام باللغة الإنكليزية فهذا سوف يسهل عليك الكثير في المستقبل

زياد ذو النون · 04-07-2005, 19:17

ابداع في تمييز في خبره

اولا اهنييك علي الاشراف علي القسم
والله تستحقه بجداره والف الف مبرووك .....

وان شاء الله نتابع معك دروس الدولفي كل يوم ....

demon · 04-07-2005, 19:28

الله يبارك فيك عزيزى ked
والله انتم الاصل والوصل ويد واحده ما بتصفق
واتمنا دوام التواصل معكم باذن الله تعالى

demon · 05-07-2005, 15:00

في هذا الدرس ستنشئ تطبيق متطور أكثر من الجلسة السابقة.. سنتعلم كيف نضع العناصر على الـ form ونغير في خصائصها ونكتب الإجراءات في قسم الevent لها.. وسنرى أيضا كيف تتعاون هذه العناصر في تنفيذ تطبيقك.

شرح مبسط عن العناصر في Delphi:
كما سبق ووذكر أنه لكل عنصر في دلفي خصائص و أحداث (properties ,events).

وتحوي معظم العناصر في دلفي عدة خصائص مشتركة فمثلا الخاصيات name,size,length,....تكون موجودة في كل العناصر,أما الخصائص التي تختلف بها العناصر عن بعضها فهي تميز كل عنصر عن الآخر وتتبع لنوع العنصر .

إن الforms في دلفي بما تحويه من عناصر ماهي إلا وسيلة للتواصل مع الـ codeالذي قمت بكتابته وبرمجت به مشروعك بمعنى آخر هي الواجهة التفاعلية لتطبيقك.

فمثلا العنصرمن نوع TLabelيستخدم لإظهار نص معين لا يمكن تعديله من قبل المستخدم..

العنصر من نوع TEdit يستخدم لإدخال المعطيات من قبل المستخدم.

العنصرمن نوع TButtonيستخدم لتنفيذ إجراء معين و ذلك عند النقر عليه.

http://www.alepposoft.com/fourmfiles...es/index.1.jpg

عندما تضع أي عنصر لأول مرة على form فإنه يأخذ height, width ,position افتراضي ,يمكنك تغييرهم متى شئت من الobject inspector.

كيف تغير خاصية عنصر؟

حدد العنصر ثم اذهب إلى الـ object inspector ثم اذهب إلى الخاصة,حددها وغيرها.

طريقة أخرى:

اذهب إلى ال object inspector اضغط على القائمة المنسدلة ستظهر أسماء وأنواع العناصر الموجودة على ال form الحالية, اختر العنصر الذي تريد تغيير خاصته ثم اذهب إلى الخاصة,حددها وغيرها.

ملاحظة:إن النقر المزدوج على أي عنصر من لوحة العناصر يضعه مباشرة في منتصف الform,أما النقر على أي عنصر ثم النقر على الـ form يضع العنصر عليها.

لحذف أي عنصر من على الform حدد العنصر ثم اضغط Del.

خذ بالك :

1-الخاصة name مهمة جدا فمن خلالها يتم استدعاء العنصر عند كتابة أي code فإذا غيرتها أعطها اسما معبرا ,مثلا إذا كان لديك Editbox لإدخال أسماء الطلاب , عندما تضعها لأول مرة تأخذ الnameالافتراضي Edit1 فإذا غيرتها فاجعل الname هيEnterStNumE أي اختصار ل Enter Student Number Edit ,وهكذا..طبعا هناك قواعد لكل خاصة فلا يمكنك تغير خاصة العرض لعنصر ما والتي تأخذ أرقام إلى أحرف.

2-الخاصة caption تختلف عن الخاصة name فالخاصة caption تغير عنوان العنصر ويمكن أن تكون بالعربي ولايمكن إستدعاء العنصر بواسطتها أما الname تكون فقط بالEnglish ويتم استدعاء العنصر من خلالها.,ويمكن أن تكون caption = name ولكن ليس من الضروري ذلك.

3- في عنصر ال Editالخاصة Text تغير النص الذي يظهر داخلها.

كتابة الـ code, الأحداث, معالج الأحداث (Event Handlers):

كما ذكرنا سابقا أن كل عنصر في نموذج form دلفي هو عبارة عن كتلة مبنية , فخلف كل عنصر code يضمن تفاعل العنصر مع فعل معين.

إذاً لكي نفعّل عناصرنا علينا كتابة تعليمات برمجية تؤدي وظيفة العنصر المطلوبة منه.

الأحداث :

تكتب التعليمات في قسم الأحداث للعنصر...لعلك تتسآل ماهو الحدث على أي حال ..

الحدث هو تابع يقدح( يفعّل )عند تنفيذ فعل معين ..على سبيل المثال ,الحدث onclickالمتواجد في بعض العناصر مثل الأزرارbutton يقدح عند الضغط على الزر المعين وبذلك إذا كنت أرغب مثلا أن أحذف معلومات معينة عند الضغط على هذا الزر سوف أكتب الcodeالخاص بتعليمات الحذف داخل هذا الحدث ..وعلى هذا المقياس قس بقية الأحداث مثل onchange للeditأي عند تغير النص (text) داخل الedit .....

كيف أصل لحدث وأبرمج داخله؟؟؟

من Object Inspector للعنصر ثم event,اختر الحدث المطلوب ,

بضغطة مزدوجة عليه سيُظهر دلفي محرر التعليمات code editor وقد بُنيت ترويسة الاجراء (procedure ) الذي

سوف أكتب به.

procedure TForm1.Button1Click(Sender: TObject);

begin

//this is where your code goes

end

على ماذا يدل اسم الإجراء TForm1.Button1Click؟

TForm1 تدل على اسم الform المتوضع عليها العنصر..

Button1 تدل على اسم العنصر..

Click تعني هذا حدث الضغط على الزر..

لاتهتم بالبقية حاليا...

إذا بعد أن جهزت ال form ووضعت عليها

1- label وغيرت الcaption للlabel إلى (أدخل اسم من فضلك),

2- ضع edit وغير خاصةال text لها,

3- ضع button ثم اذهب إلى الحدث onclick(أو إضغط عليه ضغطة مزدوجة) و اكتب التالي:

procedure TForm1.Button1Click(Sender: TObject);

var s: string;

begin

S := 'مرحبا ' + Edit1.Text + ' دلفي ترحب بك!';

;(ShowMessage(s

end

ماذا يعني الcode السابق!!!

تماما كما في باسكال ..عرفنا متحول من نوع string ثم أسندناه إلى قيم ثابتة من نفس النوع بالإضافة إلى النص (text) الموجود داخل ال edit وقد وصلنا إلى النص من خلال الخاصة text, ثم مررنا هذاالمتحول(اصبح يشير إلى الرسالة التي سوف تظهر) إلى التعليمة التي تستدعي صندوق الحوار .

كيف لي أن أعرف ماهي خواص العنصر التي أستطيع التعامل معها عندما أكتب الcode؟

بعد أن تستدعي العنصر بواسطة إسمه ,ضع نقطة وانتظر قليلا ( أو اضغط ctrl &space)ستظهر لك قائمة بكل الخواص المتاحة لك التعامل معها ,اختر المطلوبة..

مثلا للعنصر edit تظهر القائمة:

اضغط F9 وشاهد النتائج !!!

ملاحظة:

إذا كان الcode يحتوي أخطاء مثل نقصان فاصلة منقوطة أو كتابة تعليمة خطأ أو ماشابه ذلك لن تظهر القائمة.

تمارين للتجريب:

1- جرب أن تغير في خاصة اللون للform وللعنصر edit.

2-جرب أن تغير الخاصة font (نوع الخط وحجمه ولونه) للعنصر label.

وظيفة يجب التفكير بها!!!

ماذا تعني الخاصة passwordchar في العنصر edit لاتقل كيف ؟ جرب أن تُفعلها وستعرف ماعملها ومتى تستخدم!

نصائح :

هذه الجلسة تحتاج لكثير من التدريب ,ابني تطبيقات تعبر عنك وعن ذوقك الخاص,استخدم خواص كل العناصر في

سبيل تحقيق ذلك...

demon · 06-07-2005, 14:52

مقدمة:
إن كل مشروع يبنى باستخدام دلفي ماهو إلا عبارة عن (على الأقل 99%) نماذج formsتتوضع عليها عناصر مرئية ويتعاون هؤلاء بشكل متناسق لأداء وظيفة معينة, ولكن عند إنشاء كل نموذج تنشئ دلفي معه وحدة unit خاصة به,تحوي هذة الوحدة التعليمات لأي إجراء خاص بحدث معين تابع لعنصر ما.

ولنفهم أكثر بنية الوحدة سوف نأخذ مثال الدرس السابق ونفصله:

01: unit Unit1;

02: interface

03: uses

03: Windows, Messages, SysUtils, Variants, Classes,

03: Graphics, Controls, Forms, Dialogs, StdCtrls;

04: type

05: TForm1 = class(TForm)

06: Edit1: TEdit;

07: Button1: TButton;

08: Label1: TLabel;

09: procedure Button1Click(Sender: TObject);

10: private

11: { Private declarations }

12: public

13: { Public declarations }

14: end;

15: var

16: Form1: TForm1;

17: implementation

18: {$R *.dfm}

19: procedure TForm1.Button1Click(Sender: TObject);

20: var s: string;

21: begin

22: s := 'Hello ' + Edit1.Text + ' Delphi welcomes you!';

23: ShowMessage(s);

24: end;

25: end

عندما يُبنى النموذج لأول مرة فإن دلفي تبني الوحدة التالية:

كما نرى فإن أي وحدة تُبنى فإن دلفي تقوم ببناءها على أساس هيكلية معينة لا يمكن تجاهلها..

إذا الأسطر باللون الأسود في التعليمات السابقة تنشئ مع الوحدة عندما تُبنى لأول مرةبعد ذلك عندما تضيف عناصرعلى

النموذج فإن دلفي تضع الأسطر المكتوبة بالأخضر .أما الأسطر باللون الأحمر فقد كتبناها معا في الدرس الماضي.

تحليل مفصل للكلمات الأساسية في الوحدة:

اسم الوحدة:

في السطر الأول يتم التصريح عن اسم الوحدة مع مراعاة التالي:

1-أن هذا الاسم وحيد داخل المشروع الواحد (حيث يغلب أن يحتوي المشروع على أكثر من نموذج وبالتالي أكثر

. من وحدة ).

2- يفضل تخزين أي حفظ المشروع في مراحله المبكرة ,و إذا أردت أن تغير بعد ذلك اسم الوحدة فغيره من خلال

file -save as.

3- يجب أن يكون اسم الوحدة الموجود في السطر الأول ( الترويسة)هو نفسه الاسم الذي حفظت الوحدة به.

4-في أغلب الأحيان نسمي الوحدة بنفس اسم النموذج مثلا:

اسم الوحدة:MainUnit .

اسم النموذج MainForm (من الخاصة nameللنموذج ).

قسم الواجهة Interface :

يبدأ هذا القسم بكلمة Interface وينتهي بكلمة implementation, ويحتوي على أنماط العناصر التي تتوضع على

النموذج ,الاجراءات, بالإضافة إلى المتحولات .

ويجب أن ننتبه هنا أن جميع العناصر والاجراءات والمتحولات تكون مرئية من جميع الوحدات الأخرى التي سوف

تستخدم هذه الوحدة.

في أغلب الحالات يقسم هذا القسم إلى الأقسام التالية:

قسم الاستخدامات Uses :

يأتي هذا القسم بعد كلمة Interface مباشرة,ويحتوي على جميع الوحدات التي تحتاجها الوحدة الحالية,ففي أغلب

الأحيان تتوضع كل الوحدات الضرورية في قسم الاستخدمات للقسم interface عندما يقوم دلفي بترجمة التعليمات,

مثلا النوافذ والرسائل هي عبارة عن وحدات قياسية يحتاجها أي برنامج ,كما أنه عندما تضع عناصر على النموذج فإن

الوحدات الضرورية سوف تضاف في قسم Uses بشكل آلي.

ولكن في بعض الحالات يجب أن تضيف اسم الوحدة يدويا .......

قسم التعريف عن الأنماط Type:

وفيه بتم التعريف عن أنماط العناصر ويأخذ التصريح هنا شكل الصف class,من السطر 4إلى السطر 14 تم التصريح

عن النموذج كصف.

توضيح بسيط لمفهوم الصف:

من المؤكد أن التعريف بمفهوم OOPفي دلفي ليس مكانه هنا ولكن من الضروري توضيح بعض الكلمات وسف نفصل لاحقا.

أن نمط الصف يقصد به بنية ما تحتوي على حقول وطرائق و خصائص(fields, methods, and properties )

,وتدعى المتحولات من نمط classبالأغراض object.

مثال من الحياة العامة:

نعتبر المبرمج بحد ذاته صف له خصائص مثل سنوات الخبرة والمشاريع التي طورها(Years_Of_Experience

and Projects_Developed) ....., وله طرائق مثل كتابة برنامج ,التحدث مع المستخدمين .(Write_Program and

Talk_To_Users.).

أما مبرمج الدلفي فهو غرض objectمن نمط class.

TForm1هو صف يرث من الصف TForm1 وكل عنصر نضعه على النموذج يوضع كحقل (متحول) داخل الصف

TForm1,والإجراءات لأحداث العناصرالمتواجدة على النموذج تضاف أيضا ويصرح عنها هنا.

قسم التصريح عن المتحولات Var:

وهنا نعرف عن غرض للنموذج form1 من الصف TForm1.ويمكنك أيضا أن تعرف متحول (غرض) لنوع معطيات

ما(خصائص,طرائق) قد أنشأته مسبقا في قسم التصريحات من قسم الواجهة Interface.

قسم التنفيذ implementation:

يبدأ من كلمة implementationحتى نهاية الملف ,وفي هذا القسم تكتب Codeينفذ العمليات في مشروعك.

هذا القسم خاص بالوحدة أي لا تراه بقية الوحدات ويمكن أن يحتوي على قسم للتصريحات أيضا, قسم Uses بالإضافة إلى .

Code .

كيف تستخدم وحدة ما وحدات أخرى؟

مثلا إذا كان يحوي مشروعك الوحدتين :

AboutUnit التابعة للنموذج AboutForm

MainUnit التابعة للنموذج .MainForm

وبفرض أن مشروعك يقوم على استدعاء نموذج ما لنموذج آخر عن طريق زر ما في أحد النماذج:

مثلا النموذجMainFormيستدعي النموذجAboutForm .

حسنا لكي تفعل ذلك يجب أن تعرف الوحدة AboutUnitفي قسم Usesللقسم implementationللوحدةMainUnit:

هذا وإذاأردت استخدام إجراء ما في الوحدة AboutUnitداخل الوحدة MainUnit تستدعيه كالتالي :

AboutFormUnit.SomeProcedureName(parameters(

اسم الوحدة .اسم الاجراء (المعاملات).

ملاحظة:

إذاغيرت اسم الوحدة فيجب تغيره في كل مكان تم استدعائها فيه وهنا تظهر فوائد اعطاء الوحدات أسماء ذات معنى.

كل ماتم التصريح عنه في قسم التنفيذ ولم يصرح عنه في قسم الواجهة لا تراه الوحدات الباقية.

aboelmozn · 08-07-2005, 14:49

اليكم هذا الموقع الذي تجدون به دروس مجانية في الدلفي online ترسل لكم على ايميلكم
http://delphi.about.com/od/beginners/a/ecourses.htm

**AyMaN** · 09-07-2005, 06:59

ماشاء الله .. ابدااااع

ان شاء الله اتابع معاكم طوالي

aboelmozn · 09-07-2005, 12:34

وللمزيد من الفائدة الرجاء زيارة موقعي توري. نت و موقع دلفي .اباوت.كوم

demon · 11-07-2005, 10:25

كيف تبحث في أكثر من حقل بإستخدام تعليمة Locate :

يمكن البحث بإستخدام تعليمة Locate في أكثر من حقل بحيث نبحث عن الموظف حسب حقل الإسم الأول و حقل الإسم الثاني . فإذا كان حقل الإسم الأول F_name والإسم الثاني L_name والقيم في Edit1 و Edit2 على التوالي أمكننا ببساطة كتابة الشفرة التالية :

كود:

if not ClientDataSet1.Locate('F_Name;L_Name',vararrayof([edit1.Text,Edit2.Text]),[]) then showmessage('Filed Not Found');

ويتم ذلك بفصل الحقول المراد البحث فيها بفاصلة منقوطة , وفصل القيم بإستخدام الدالة VarArrayOf
-------------
كيف تبحث عن تطابق جزئي بإستخدام تعليمة Locate :

مثلا يمكننا البحث حسب بداية كلمة ما , حيث يكفي كتابة الأحرف الأولى من الإسم لإظهار نتيجة السجل .

كود:

if not ClientDataSet1.Locate('F_Name',edit3.Text,[loPartialKey]) then showmessage('Filed Not Found');

ويتم ذلك بإستخدام الخيار [loPartialKey] الذي يحدد التطابق الجزئي للبحث
-----------
لملأ قائمة بخطوط الوندوز

كود:

ComboBox1.Items := Screen.Fonts

-----------
لكتابة الأصفار يسار العدد نستخدم الكود التالي

كود: