---- Delphi adalah bahasa pemrograman yang berorientasi objek. Di antara banyak kelas yang terkandung dalam Delphi, tapplikasi adalah kelas yang memainkan peran yang sangat penting. Kelas tapplikasi adalah kelas yang digunakan untuk menggambarkan aplikasi yang disusun oleh Delphi. Melalui aplikasi yang fleksibel dari kelas ini, banyak program khas dapat disiapkan. Mari kita berikan beberapa contoh dalam hal ini.
---- 1 Deteksi apakah program Windows saat ini diaktifkan:
---- Kelas tapplikasi memiliki properti-aktif, yang dapat menggambarkan apakah program yang sedang berjalan diaktifkan dan menjadi fokus Windows. Kode deteksi adalah sebagai berikut:
Ifapplication.active = falsethen
Showmessage ('Jendela saat ini tidak diaktifkan');
---- 2 Dapatkan nama program saat ini:
---- Properti exename dari kelas tapplikasi dapat mengembalikan nama file lengkap (termasuk jalur) dari program yang dapat dieksekusi ini. Kode yang diimplementasikan adalah sebagai berikut:
--- Showmessage (Application.exename);
---- 3 Ubah judul saat program diminimalkan
---- Jika Anda mengamati dengan hati-hati, Anda akan menemukan bahwa judul-judul beberapa program tidak konsisten dengan nama-nama program, terutama dalam beberapa program bahasa Inggris , sering menjadi beberapa huruf. Apa yang berhasil di tengah adalah properti judul kelas tapplikasi. Properti ini menentukan judul ketika program diminimalkan, dan judul bilah judul di jendela ditentukan oleh Caption Property of Form. Kodenya adalah sebagai berikut:
Form1.Caption: = 'Judul jendela';
Application.title: = 'judul program';
---- Faktanya, kita juga dapat menentukan nilai atribut judul kelas tapplikasi saat pemrograman. Metode pengoperasian adalah untuk menarik ke bawah menu proyek di lingkungan pengembangan dan memilih menu opsi dan kotak dialog seperti yang ditunjukkan pada Gambar 1 (dihilangkan). Efek ini juga dapat dicapai dengan mengisi kolom judul kotak dialog ini. Dan karena file proyek umum dinamai dalam bahasa Inggris, judul kotak pesan muncul selama operasi program dalam bahasa Inggris. Tetapi setelah menentukan properti ini, judul semua jendela pesan dari program ini menjadi nilai judul. Ini membuat program terlihat lebih lengkap.
---- 4 Tentukan jendela utama program
--- Antarmuka dalam sistem Windows adalah semua jendela, tetapi secara umum, ada jendela utama. Properti MainForm dari tapplication dapat kembali ke jendela utama program.
---- 5 kotak pesan tampilan
---- Delphi memiliki banyak fungsi dan prosedur untuk menampilkan kotak pesan. Jika Anda ingin menghasilkan tombol dengan tampilan Cina, Anda akan memerlukan fungsi kotak pesan yang membantu dengan tapplikasi. Prototipe fungsi ini adalah sebagai berikut:
---- FunctionMessageBox (Teks, Keterangan: Char; Bendera: LongInt): Integer
;
---- Dalam fungsi ini, dua item pertama adalah informasi prompt yang ditampilkan dan judul jendela pesan. Pengguna yang akrab dengan Delphi mungkin memperhatikan bahwa fungsi ini sedikit berbeda dari fungsi dari nama yang sama yang disediakan oleh Delphi3. menjadi petunjuk. Kita harus memperhatikan perbedaan saat menggunakannya.
---- Application.MessageBox ('Apakah Anda perlu menyimpannya?', 'Pesan cepat', MB_OKCANCEL);
----- Akhirnya, beberapa penjelasan diberikan tentang nilai pengembalian fungsi ini. ditekan.
---- Arti tombol pada Tabel 1 dan nilai yang ditentukan dalam sistem
Arti tombol nilai yang dikembalikan oleh fungsi saat menekan tombol ini
Idabort 3
IDCANCEL 2
Idignore 5
IDNO 7
Idok 1
Idretry 4
Idyes 6
---- 6 Kontrol ukuran jendela
--- Secara umum, pegangan jendela dapat digunakan untuk menyesuaikan ukuran jendela, tetapi juga dapat digunakan untuk menyesuaikan ukuran jendela menggunakan peristiwa aplikasi. Metode implementasi adalah menggunakan dua proses berikut:
Application.minimized;
Application.Restore;
--- Proses sebelumnya digunakan untuk meminimalkan jendela utama program, dan proses yang terakhir digunakan untuk mengembalikan jendela yang diminimalkan ke ukuran aslinya.
---- 7 Tautan File Bantuan Online
---- Properti Aplikasi CurrentHelPFile dapat menentukan nama file file bantuan online yang digunakan oleh program saat ini. Properti ini sering digunakan bersama dengan metode lain. Sebagai contoh:
Application.helpfile: = 'nama file bantuan online';
Application.helpjump ('Tema file bantuan online')
----- Melalui kombinasi perintah ini, kita dapat membuat sistem memunculkan file bantuan online yang menampilkan topik tertentu.
---- 8 secara dinamis buat windows saat program berjalan
---- Biasanya, Windows ditambahkan ke proyek selama desain, tetapi kadang-kadang kita juga perlu menambahkan Windows secara dinamis saat program berjalan.
Form3: TFORM3; // Deklarasikan Kelas Jendela
Application.createForm (tform3, form3); // buat jendela
---- 9 Akhiri program
---- Meskipun kita dapat menutup program dengan menutup jendela utama, cara yang lebih baik adalah dengan menggunakan proses penghentian aplikasi. Ini dapat mencapai penutupan program yang lebih menyeluruh.
---- Atribut 10Destroy.
---- Meskipun Delphi menyediakan properti ini, tidak disarankan untuk menggunakannya. serupa. Ini tidak hanya dapat menutup instance program itu sendiri, tetapi juga melepaskan sumber daya yang ditempati oleh program, mencapai tujuan untuk sepenuhnya membersihkan program keluar dari sistem.