ครั้งแรกที่ฉันไป Delphi ฉันรู้สึกดีมาก แต่ภาษาอังกฤษของฉันแย่เกินไปและฉันไม่รู้จักการควบคุมมากมายภายใน
เมื่อฉันเริ่มไปที่คอมพิวเตอร์ครั้งแรกฉันเขียนโปรแกรมสุ่มที่สามารถเปลี่ยนสีพื้นหลังของแบบฟอร์มได้
บทที่หน่วย 1;
ส่วนต่อประสาน
ใช้
Windows, ข้อความ, sysutils, ตัวแปร, คลาส, กราฟิก, การควบคุม, รูปแบบ,
กล่องโต้ตอบ stdctrls;
พิมพ์
tform1 = คลาส (tform)
ปุ่ม 1: tbutton;
button2: tbutton;
ปุ่ม 4: tbutton;
ปุ่ม 5: Tbutton;
ปุ่ม 6: tbutton;
ปุ่ม 3: tbutton;
ขั้นตอน button1click (ผู้ส่ง: tobject);
ขั้นตอน button2click (ผู้ส่ง: tobject);
ขั้นตอน button4click (ผู้ส่ง: tobject);
ขั้นตอน button5click (ผู้ส่ง: tobject);
ขั้นตอน button6click (ผู้ส่ง: tobject);
ขั้นตอน button3click (ผู้ส่ง: tobject);
ส่วนตัว
{ประกาศส่วนตัว}
สาธารณะ
{ประกาศสาธารณะ}
จบ;
วาจา
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: = 'พื้นหลังสีน้ำเงิน';
form1.Color: = clblue
จบ;
ขั้นตอน tform1.button5click (ผู้ส่ง: tobject);
เริ่ม
Form1.Caption: = 'พื้นหลังสีเหลือง';
form1.Color: = clyellow
จบ;
ขั้นตอน tform1.button6click (ผู้ส่ง: tobject);
เริ่ม
Form1.caption: = 'พื้นหลังสีเขียว';
form1.Color: = clgreen
จบ;
ขั้นตอน tform1.button3click (ผู้ส่ง: tobject);
เริ่ม
form1.close
จบ;
จบ.
ฉันมีความสุขมากที่ได้เขียนรหัสเล็ก ๆ ด้วยเป็นครั้งแรก