Pertama kali saya pergi ke Delphi, saya merasa cukup baik, tetapi bahasa Inggris saya terlalu buruk dan saya tidak mengenali banyak kontrol di dalamnya.
Ketika saya pertama kali mulai pergi ke komputer, saya menulis program acak yang dapat mengubah warna latar belakang formulir.
unit unit1;
antarmuka
penggunaan
Windows, pesan, sysutils, varian, kelas, grafik, kontrol, formulir,
Dialog, stdctrls;
jenis
Tform1 = class (tform)
Button1: tbutton;
Button2: tbutton;
Button4: tbutton;
Tombol5: tbutton;
Button6: tbutton;
Button3: tbutton;
Prosedur Button1Click (pengirim: Tobject);
Prosedur Button2Click (pengirim: Tobject);
Prosedur Button4Click (pengirim: Tobject);
Prosedur Button5Click (pengirim: Tobject);
Prosedur Button6Click (pengirim: Tobject);
Prosedur Button3Click (pengirim: Tobject);
Pribadi
{Deklarasi Pribadi}
publik
{Deklarasi Publik}
akhir;
var
Form1: tform1;
Pelaksanaan
{$ R *.dfm}
Prosedur TFORM1.BUTTON1CLICK (Pengirim: Tobject);
Mulai
Form1.Caption: = 'Latar Belakang Merah'; // Judul Jendela
Form1.color: = clred // warna formulir diubah
akhir;
Prosedur TFORM1.BUTTON2CLICK (Pengirim: Tobject);
Mulai
Form1.caption: = 'latar belakang putih';
Form1.color: = Clwhite
akhir;
Prosedur TFORM1.BUTTON4CLICK (Pengirim: Tobject);
Mulai
Form1.caption: = 'latar belakang biru';
Form1.color: = clblue
akhir;
Prosedur TFORM1.BUTTON5CLICK (Pengirim: Tobject);
Mulai
Form1.Caption: = 'Latar Belakang Kuning';
Form1.color: = Clyellow
akhir;
Prosedur TFORM1.BUTTON6CLICK (Pengirim: Tobject);
Mulai
Form1.caption: = 'latar belakang hijau';
Form1.color: = Clgreen
akhir;
Prosedur TFORM1.BUTTON3CLICK (Pengirim: Tobject);
Mulai
form1.close
akhir;
akhir.
Saya sangat senang menulis kode kecil dengannya untuk pertama kalinya.