--- In [EMAIL PROTECTED], "Ahmad Yadi" <[EMAIL PROTECTED]> wrote:
> Hii... Prends
>
> 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 ?
bisa pake systax
for i := 0 to ComponentCount-1 do
if Components[i] is Tedit then
TEdit.text:='';
Saya pake TEdit krn didelphi kayanya ngak ada textbox deh. dan syntax
ini harus ditaruh di parent object. Kalo ngak harus ditambahin nama
parentnya didepan componentcount.
> 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
Emang pake ShowMessage bisa keluar tombol yes bukannya tombol ok ?
sebenernya messagebox itukan udah ada fungsinya coba lihat lagi deh
dihelpnya Delphi. Nih contohnya
Application.MessageBox(
'Could not open Table1 exclusively - Try again?',
'Open Error',
MB_OKCANCEL + MB_DEFBUTTON1);
MB_DEFBUTTON1 itu artinya defaultnya button pertama, kalo 1 diubah 2,
ya defaultnya button kedua yaitu button cancel.
Salam,
Aris
>
> Terima Kasih atas pencerahannya.
>
> BR,
>
> Ahmad Yadi
------------------------ 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/
