Saya pernah membuat aplikasi MDI dengan ratusan form. Program saya langsung hang. Kenapa? Alasannya begini. Secara default, manakala Anda membuat form, maka form tersebut langsung diletakkan di memori saat Anda mulai menjalankan program. Jika per form membutuhkan 100 Kb, maka bisa Anda bayangkan, berapa Kb yang dibutuhkan untuk seratus form.
Cara untuk mengetahui apakah form Anda di-load langsung ke memori atau "menunggu perintah Anda" adalah dengan cara:
Buka Menu Project >> Options:
Klik menu Options untuk menampilkan kotak Project Options dan pilihlah Form:
Anda lihat, di sebelah kira ada kotak bertuliskan Auto-create forms dan di kanan, Available forms. Itu artinya, form-form yang terdaftar di kiri akan langsung diletakkan di memori saat Anda pertama kali meng-eksekusi aplikasi. Agar form tidak otomatis demikian, maka pindahkan ke sebelah kanan. Sisakan hanya form utama di sebelah kiri.
Sekarang bagaimana memunculkan form jika tidak otomatis saat program dijalankan pertama kali? Caranya harus kita buat sendiri. Sebagai contoh, untuk menampilkan form FrmPlants, saya ketikkan:
TFrmPlants.Create(Self).Show;
Dan satu lagi. Karena Anda membuat form secara manual, maka tanggung jawab Anda juga untuk menghapus formnya.
Pada event FormClose, tambahkan kode semacam ini:
procedure TFrmPlants.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
0 comments:
Posting Komentar