> Saya masih awam dengan sintax delphi nihh, > mau tanya, bila di VB ada hal sbb : > > dim tText as textbox > FOR EACH ttext IN txtFields > ttext.text="" > NEXT > > dengan maksud hendak menghapus isi dari semua object textbox yang terdapat > dalam form > > Pertanyaannya : > 1. Kalo di delphi bagaimana ? kalau pake delphi carannya :
procedure TForm1.FormActivate(Sender: TObject); var i : integer; begin for i:=0 to Form1.ControlCount -1 do if (Form1.Controls[i] is Tedit) then (Form1.Controls[i] as Tedit).Text:=''; end; > 2. Jika ingin menampilkan MessageBox dengan buton yes dan no serta default > button nya > ke tombol no, bagaimana caranya ?, saya sdh coba dengan showmessage tetapi > default button selalu ke tombol yes untuk pertanyaan no 2 kayaknya memang dari delphinya deh jd gak bisa di ubah default buttonnya. (CMIIW). --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.515 / Virus Database: 313 - Release Date: 01/09/03 ------------------------ 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/
