Bagian 5 File Kompilasi (halaman 12)
Contoh kami berikutnya adalah program yang ditulis dalam VCL (Visual Component Library) di IDE. Program ini secara otomatis membentuk frame windows dan file sumber daya, sehingga Anda tidak dapat mengkompilasi dari satu file sumber. Tapi dia menggambarkan fitur penting dari bahasa Delphi. Selain multi-unit, kelas dan objek dapat digunakan.
Program ini mencakup file proyek, dan 2 file unit baru. Pertama, file proyek adalah sebagai berikut: ucapan program; menggunakan formulir, unit1, unit2; {$ r *.res} // Petunjuk ini menautkan file sumber daya proyek. ke Instance Aplikasi Global // Call Global Application Instance Application.Initialize; Application.CreateForm (TFORM1, Form1); Application.CreateForm (TFORM2, Form2); Application.run; end.in satu, Program kami bernama ucapan. Dia menggunakan 3 file unit. Formulir adalah bagian dari VCL;
Program ini memanggil serangkaian objek yang disebut Aplikasi, yang merupakan instance dari kelas tapplikasi yang ditentukan dalam unit unit formulir. (Setiap proyek secara otomatis menghasilkan objek aplikasi.) Dua metode bernama CreateForm Call dari Tapplikasi. CreateForm panggilan pertama untuk membuat Form1 adalah instance dari kelas TFORM1 yang didefinisikan dalam Unit1. Panggilan kedua CreateForm, menciptakan Form2, dan mendefinisikan contoh kelas TFROM2 di Unit2. 10Unit1 terlihat seperti ini: Unit1 terlihat seperti ini: unit unit1; antarmuka sistem, jenis, kelas, grafik, kontrol, formulir, dialog; Typetform1 = class (tform) tombol1: tbutton; Prosedur Button1Click (pengirim: TOBJEK); TFORM1; TFORM1 berisi tombol ButtonButton1, instance dari kelas Tbutton dan proses bernama Button1Click, yang dipanggil ketika pengguna mengklik tombol1. Button1Click menyembunyikan form1 untuk menampilkan form2 (dengan memanggil form22.showmodal).
Form2 adalah unit unit2 yang ditentukan di unit2; TFORM2; Implementasi11 UNIT1; {$ R *.DFM} Prosedur TFORM2.CancelButtonClick (pengirim: TOBJEK); TFORM2 berisi tombol (instance cancelButton, instance dari tbutton) dan kotak teks (instance label1, instance tlabel). Anda tidak dapat melihat formulir ini dalam kode sumber, kecuali bahwa Label1 menunjukkan judul Baca Hello World!
TFORM2 menyatakan dan mendefinisikan metode CancelButtonClick, yang dipanggil ketika pengguna menekan CancelButton saat runtime. Proses ini (bersama dengan Form1.Button1Click di Unit1) disebut penangan acara. Karena ini adalah acara yang ditanggapi saat program berjalan. Pegangan acara adalah acara khusus yang didefinisikan dalam file formulir Form1 dan Form2. Ketika program ucapan mulai berjalan, Form1 ditampilkan dan Form2 disembunyikan. (Secara default, hanya jendela pertama yang dibuat dalam file proyek terlihat saat runtime, dan itu disebut jendela utama proyek.) Ketika pengguna menekan tombol di Form1, Form2 menunjukkan Hello World! Dengarkan panasnya tinggi. Ketika pengguna menekan tombol CancelButton atau tombol Tutup pada bilah judul, Form2 ditutup.