Program Windows yang ditulis dengan cermat menampilkan tindakan pencegahan startup, yang disebut layar splash. Dengan menggunakan sedikit konten, Anda dapat menambahkan banyak warna ke tampilan program.
Karena proyek itu sendiri membuat jendela utama program dan layar Startup Sputtering harus muncul sebelum jendela utama dibuat, file proyek harus membuat layar startup sendiri. Ini berarti bahwa pengguna harus memodifikasi kode sumber untuk membuat file proyek, yang biasanya tidak diperlukan dalam pemrograman Delphi. Proses berikut memperkenalkan proses pengaturan layar sputtering.
1. Mulai proyek baru. Sebutkan bentuk MainForm dan atur properti judulnya ke Splashindemo. Simpan proyek ini di direktori, seperti C: Projectssplashin. Beri nama unit MainForm Utama dan beri nama file splashin proyek.
2. Masukkan komponen tombol di MainForm. Ubah Properti Nama Tombol ke ExitButton, dan Properti Judulnya untuk Keluar. Buat prosesor untuk acara OnClick Exitbutton, memasukkan pernyataan dekat antara kata kunci awal dan akhir dari proses tersebut.
3. Pilih perintah Formulir | Formulir Baru, atau klik tombol Kecepatan Formulir Baru. Tambahkan formulir baru.
4. Ubah nama properti dari formulir ini menjadi splashform dan hapus properti judulnya. Selain itu, ubah properti Borderstyle -nya menjadi BSNone, dan atur tiga subvalues di bawah perbatasan menjadi false.
5. Simpan proyek ini. Ketika Delphi meminta pembaca untuk memberikan nama file unit, pastikan bahwa direktori saat ini adalah direktori yang benar. Masukkan splash untuk nama file unit SplashForm.
6. Atur properti yang diaktifkan dari splashform menjadi false. Ini adalah salah satu kasus langka di mana pengguna tidak ingin memberikan keyboard dan perintah mouse ke Windows. Dalam contoh ini, kami ingin program memiliki kontrol penuh atas tampilan splashform.
7. Karena jendela tidak memiliki garis besar, masukkan objek komponen bevel dari kelas komponen tambahan. Ini membantu menentukan tepi jendela. Atur properti Align Bevel1 ke Alclient. Pada saat yang sama, ubah properti bentuk objek menjadi BSFrame dan ubah properti gayanya menjadi BSRAISED. Nilai -nilai ini ditentukan oleh pengguna.
8. Masukkan komponen yang ingin Anda gunakan dalam splashform, jangan masukkan tombol atau kontrol interaktif lainnya di sini. Aplikasi itu sendiri menampilkan dan menghapus kotak dialog Start Sputtering.
9. Pilih menu Proyek. Sorot menu pop-up Project Splash. Pilih perintah Opsi. Di kotak dialog Opsi Proyek yang dihasilkan, pilih label halaman Forms. Perhatikan bahwa MainForm dan SplashForm ada dalam daftar formulir yang dibuat secara otomatis. Sorot setiap formulir dan klik tombol mouse kanan untuk memindahkannya ke formulir yang tersedia. Semua formulir Delphi dibuat secara otomatis dalam memori saat runtime, yang mengkonsumsi sumber daya memori dan sistem. Dalam kasus seperti itu, program membuat formulir saat runtime, dan pembaca harus menghapus formulir dari daftar yang dibuat secara otomatis. Tutup jendela ProjectOptions.
10. Selanjutnya, ubah kode sumber proyek untuk menampilkan kotak dialog Sputtering sebelum menampilkan jendela utama. Di sini Anda perlu memasukkan pernyataan dalam file proyek agar sesuai dengan file proyek splash.dpr. Kode sumber proyek adalah sebagai berikut:
Program Proyek3;
penggunaan
Bentuk,
utama di 'main.pas' {MainForm},
splash di 'splash.pas' {splashform};
{$ R *.res}
Mulai
Splashform: = tsplashForm.create (aplikasi);
Splashform.show;
Splashform.update;
Application.createForm (tMAintForm, MainForm);
Splashform.close;
Application.run;
akhir.
11. Jika program disusun dan dijalankan saat ini, itu akan menampilkan dan menghapus dialog Start Sputtering dengan sangat cepat, sehingga pengguna mungkin tidak memiliki kesempatan untuk melihatnya. Untuk memaksa kotak dialog agar tetap terlihat selama beberapa detik, pilih MainForm program. Buat prosesor untuk perintah OnCreate dari formulir. Tambahkan variabel bilangan bulat panjang yang disebut stoptime sebelum kata kunci. Masukkan dua pernyataan antara Begin and End: Satu adalah panggilan ke fungsi Windows GetTickCount. Setel stoptime ke jumlah detik yang dijalankan Windows; Daftar program adalah sebagai berikut:
unit utama;
antarmuka
penggunaan
Windows, pesan, sysutils, kelas, grafik, kontrol, formulir, dialog,
Stdctrls;
jenis
TMAintForm = class (tform)
EXITBUTTON: TBUTTON;
PROSEDUR EXITBUTTONCLICK (Pengirim: TOBJEKS);
Prosedur FormCreate (pengirim: Tobject);
Pribadi
{Deklarasi Pribadi}
publik
{Deklarasi Publik}
akhir;
var
MainForm: TMainForm;
Pelaksanaan
{$ R *.dfm}
Prosedur tMAintForm.ExitButtonClick (pengirim: Tobject);
Mulai
menutup;
akhir;
Prosedur tMAintForm.FormCreate (pengirim: Tobject);
var
Stoptime: Longint;
Mulai
Stoptime: = GetTickCount Div 1000;
while ((gettickcount div 1000) ＜ (stoptime+2)) do
Tidur (1);
akhir;
akhir.
12. Tekan F9 untuk mengkompilasi dan menjalankan program.