> saya punya beberapa pertanyaan : > 1. ======================== > procedure TForm1.Button1Click(Sender: TObject); > begin > if not Assigned(Form2) then Form2 := TForm2.Create(nil); > AttachForm(Form2,CheckBox2.Checked,CheckBox1.Checked); > Label2.Caption := 'Form2'; > //if Assigned(Form3) then Form3.Destroy; > end; > > saya koq ngak melihat declaration variable form2 pada unit > ini ya ?? apa diperbolehkan ??
Lho... kan udah ada di unit2.pas. Pls, see the uses clause. > 2. ======================= > procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); > begin > if Assigned(Form2) then Form2.Destroy; > if Assigned(Form3) then Form3.Destroy; > end; > > kalau kita destroy pada event onclose mainform, kan mubasir create pada > runtime :) boleh ngak kalau kita destroy pada event onclose child-form > masing masing ?? Yang saya berikan cuma contoh membuat form container. Manajemen child form seharusnya bisa Anda pikirkan lebih lanjut. :) > 3. ========================= > kalau untuk app. saya, aku ingin setiap kali child-form lain dipanggil, > maka child-form yg tampil akan didestroy. > > misalnya kalau pada kode di nomer satu saya rubah seperti dibawah ini : > > procedure TForm1.Button1Click(Sender: TObject); > begin > if not Assigned(Form2) then Form2 := TForm2.Create(nil); > AttachForm(Form2,CheckBox2.Checked,CheckBox1.Checked); > Label2.Caption := 'Form2'; > if Assigned(Form3) then Form3.close; > ^ ini yg diganti dengan asumsi yg sedang aktif adalah child-form "form3" > end; > > kemudian pada masing masing child-form event onclose saya berikan perintah > destroy. bisa ngak pakai cara ini kira kira ? Emm.. saran saya sih, coba kembangin fungsi AttachForm(). Akan lebih bagus lagi kalo pergantian child form (destroy last, create new) bisa dilakukan dari sana. Syukur2 kalo Anda bisa mengembangkannya menjadi class sendiri. :) Bahkan kalo Anda mau, Anda bisa menambahkan semacam LRU buat child form yang pernah ditampilkan sehingga bisa ditambahkan fitur navigasi form (seperti back/forward di browser) di aplikasi Anda. Selamat mencoba. :) Salam, -Bee- ------------------------ Yahoo! Groups Sponsor ---------------------~--> Upgrade to 128-Bit SSL Security! http://us.click.yahoo.com/p7cEmB/s7qGAA/yigFAA/i7folB/TM ---------------------------------------------------------------------~-> Berlangganan: [EMAIL PROTECTED] Stop Berlangganan: [EMAIL PROTECTED] Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED] Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
