> pada baseform saya pasang event handler onClose seperti dibawah ini : > (bagian "nil"-nya saya hapus). > > > > > ==== > > > > > procedure Tbaseform.FormClose(Sender: TObject; var Action: > > > > > TCloseAction); > > > > > begin > > > > > action := caFree; > > > > > end; > > > > > ==== Dengan begini, anda tidak perlu lagi memanggil explicit 'free', tapi cukup dengan memanggil 'close' pada form tersebut. Ini sedikit beda dengan approach dibawah : .
> Dan pada turunan dari baseform yaitu formB s/d formZ ... akan > saya create > dan free kan pada waktu runtime dengan procedure dibawah ini : > > > > > ==== > > > > > procedure do_formB; > > > > > > > > > > var modal : TformBform; > > > > > > > > > > begin > > > > > modal := TformBform.create(application); > > > > > try > > > > > modal.showmodal; > > > > > finally > > > > > modal.free; > > > > > end; > > > > > end; > > > > > ==== > Betul ngak kesimpulan saya ??? Kalau anda memanggil secara explicit 'free', anda nggak perlu menggunakan metode diatas lagi (onClose Action:=caFree). Silakan pilih salah satu. Salam, sugi. ------------------------ Yahoo! Groups Sponsor ---------------------~--> Get 128 Bit SSL Encryption! http://us.click.yahoo.com/CBxunD/vN2EAA/xGHJAA/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/
