في المرة الأولى التي ذهبت فيها إلى دلفي ، شعرت بالرضا ، لكن لغتي الإنجليزية كانت سيئة للغاية ولم أتعرف على العديد من الضوابط في الداخل.
عندما بدأت في الذهاب إلى الكمبيوتر لأول مرة ، كتبت برنامجًا عشوائيًا يمكن أن يغير لون الخلفية للنموذج.
الوحدة 1 ؛
واجهة
يستخدم
Windows ، الرسائل ، sysutils ، المتغيرات ، الفئات ، الرسومات ، عناصر التحكم ، النماذج ،
مربعات الحوار ، stdctrls ؛
يكتب
tform1 = فئة (tform)
Button1: Tbutton ؛
Button2: Tbutton ؛
Button4: Tbutton ؛
Button5: Tbutton ؛
Button6: Tbutton ؛
Button3: Tbutton ؛
الإجراءات button1click (المرسل: tobject) ؛
الإجراءات button2click (المرسل: tobject) ؛
الإجراءات button4click (المرسل: tobject) ؛
الإجراءات button5click (المرسل: tobject) ؛
الإجراء button6click (المرسل: tobject) ؛
الإجراء button3click (المرسل: tobject) ؛
خاص
{إعلانات خاصة}
عام
{الإعلانات العامة}
نهاية؛
var
Form1: Tform1 ؛
تطبيق
{$ r *.dfm}
الإجراء tform1.button1click (المرسل: tobject) ؛
يبدأ
Form1.Caption: = "الخلفية الحمراء" ؛
form1.color: = clred // تم تغيير لون النموذج
نهاية؛
الإجراء tform1.button2Click (المرسل: tobject) ؛
يبدأ
form1.caption: = 'خلفية بيضاء' ؛
Form1.Color: = Clwhite
نهاية؛
الإجراء tform1.button4click (المرسل: tobject) ؛
يبدأ
form1.caption: = 'blue background' ؛
Form1.Color: = clblue
نهاية؛
الإجراء tform1.button5click (المرسل: tobject) ؛
يبدأ
form1.caption: = 'yellow background' ؛
Form1.Color: = clyellow
نهاية؛
الإجراء tform1.button6click (المرسل: tobject) ؛
يبدأ
form1.caption: = 'الخلفية الخضراء' ؛
Form1.Color: = clgreen
نهاية؛
الإجراء tform1.button3click (المرسل: tobject) ؛
يبدأ
form1.close
نهاية؛
نهاية.
كنت سعيدًا جدًا بكتابة رمز صغير معه لأول مرة.