gan, kok gak pas ya posisi top formnya ketika tampil... ini kodingnya... function TaskBarHeight: integer; var hTB: HWND; // taskbar handle TBRect: TRect; // taskbar rectangle begin hTB:= FindWindow('Shell_TrayWnd', ''); if hTB = 0 then Result := 0 else begin GetWindowRect(hTB...
;540530205']klo untuk delete, sayah pake FLAGDEL dengan type BIT, om Yah, ini buktinya kalau pemakaian flag dgn tipe enumerasi lebih baik. Dengan enumerasi kode kita jadi lebih simple, kan? Daripada harus mengecek beberapa variabel untuk operasi yang sebenarnya "sama". sebenarnya,...
;540474695'] procedure TForm1.btnNewClick(Sender: TObject); begin \twith Form2 do \t\tbegin \t\t\tShow; \t\t\tLabel1.Caption := 'New'; \t\t\tEdit1.Clear; \t\t\tEdit2.Clear; \t\tend; end; procedure TForm1.btnEditCli...
Weleh... gaya bahasa dan penulisan aja beda jauh kok :Peace: masak iya cuman diskusi aja pake klonengan.. kalo liat profilnya duriosoft ini di medan, mungkin pemilik software house Punya software house?? Fitnah! Hehehe... Cm pekerja kasar aja, koq. Emang ada bikin bbrp freeware kecil. Tp klw ada ...
Mungkin anda yg perlu baca postingan saya sebelumnya.. Yang saya quote itu pernyataan si arieq.. Postingan saya juga ditujukan untuk arieq.. Ayo.. membaca... (jangan2 dual Id ini :bata) arieq = duriosoft? mau pake coba2 dual kepribadian gitu? Wah, kalau boleh id=nya arieq dikasih ke saya mau bang...
@Duriosoft: yg menganjurkan dan mengatakan FindField itu safe bukan ane, tapi arieq Ane cuma ngasih alternatif yg lebih cocok wat kasusnya si Xeinon, yaitu pake FieldByName. Posting Duriosoft di atas ane sudah mem-back up ane sebetulnya hehe.. Mungkin terlihat sepele, tapi ini berperan dalam menc...
saya yakin access violation (coba dulu baru posting di sini). Saya yakin setelah anda terbengong-bengong melihat pesan "Access Violation at address .....", anda tidak akan bisa berkata lagi bahwa FindField adalah a safe way to access a database field. Karena selain ada exception Udah ba...
silahkan coba FindField('CustNo').AsString := '1234'; Kalo nama fieldnya ternyata NoCust, cobalah contoh tersebut. Untuk menjelaskan exception yg di-raise/dimunculkan apabila ternyata FindField memberikan hasil nil dan anda mencoba menuliskan '1234' ke field yg nil t...
kalo penggunaannya: SQLQuery1.FindField('namafield').Value := xxx; jelas sekali access violation bila hasilnya nil atau field tidak ada/tidak ketemu. Ini yang saya bilang penggunaan yang salah. Coba baca baik2 dokumentasi FindField. Dinyatakan kalau field tidak ketemu fungsi ini akan m...
trus klik F9 plus berdoa... Ini trik Delphi terbaru yang undocumented. Coba di-submit ke site-nya embarcadero. Mungkin bisa dimasukin ke dokumentasi Delphi versi mendatang. :ngacir::ngacir::ngacir:
Kalo pake FieldByName ada yg namanya error handling. Kalo field nya tidak ketemu akan muncul pesan error yg berhubungan dengan database. Programmer jadi tau ada salah di nama field, bisa salah field atau salah ketik. Kalau tidak ada pesan apa2, dan ternyata fieldnya salah atau salah ketik, bisa s...
kk2, tanya donk... sy buat aplikasi database, dengan sekitar 25 buah form... dengan delphi 7.0... form global menyimpan semua sumber daya dasar & fungsi2 yg dipakai form2 lainnya... form global selalu di-create form lebih dulu, baru form2 lainnya... sekitar tanggal 16 program baik2 saja, edit dan...
ga dapet nilainya yg dimaksud gan.. saya coba2 yg dapet bukan tag tapi indexnya gan..pakai cara diatas.. gimana caranya gan?? untuk tampung sementaranya ga masalah pakai array tp ketika masukin ke databasenya gimana gan pakai cara looping?? dm1.adoquery1field1.value dm1.adoquery1field2.value dm1....
yang pasti di databes ane simpen ip PC lab nya nah pas ane eksekusi untuk semua klien,kan pasti pake pengulangan tuh? tar kalo mabok ane tanyain lagi :D Mabok? Haram tuh.... :)b Karena sptnya mau pake TCP, ya memang harus pengulangan. Tapi kalau tadi mau pake UDP, dan semua klien ada di subnet yg...
oh jadi kalo di akalin seperti itu ya... thanks gan...:D Sekedar mengingatkan. Alphablending cuma tersedia di sistem operasi Windows 2000 ke atas. Jadi jgn harap bs di Win95/98/ME. Siapa tau ada target deploy di sistem operasi tsb.
sukses gan makasih smuanya :shakehand2 BTW ane mw nanya kalo mw nampung nilai di variabel di dalem begin itu tandanya harus" :=" ya ?? jadi kalo di luar begin tandanya ":"ya ?? ane pernah liat ada yang pake tanda "=" doang,, itu ada aturannya gak ya ?? bahasa pascal ...
oh jadi kalo di akalin seperti itu ya... thanks gan...:D itu dia gan, bingung kata kuncinya apa... Coba ini "UAC like screen protection". Blum coba sih. btw, bikin kaya gini pake component apa ya ? http://cdn-u.kaskus.co.id/66/cavwfwhg.jpg bila di klik di event, properties, dll, maka a...
maen socket programing enak pake socket biasa atau pake indyTCP?? niat iseng iseng bikin remot2 an, http://img41.imageshack.us/img41/3845/201110230218daftarperin.jpg dari gambar di atas gw bingung koding untuk eksekusi semua klien,kalo yang satu2 sih bisa itu cuma contoh, di yang benak gw,pengenn...
ya itu gan uda di klik copy atopun ctrl+c atopun ctrl+insert tapi waktu di paste gak ada,, makannya ane print scren Itu krn IDE pascalnya di mode DOS. Gak bs lgsg copy ke clipboard windows. Gampangnya sih buka file source codenya pake notepad di windows. Baru di-copy-paste.
Model2 pake ShellExecute ya? Prinsipnya begitu. Cuma untuk kasus2 spt ini jangan pakai ShellExecute. Soalnya kita gk bs langsung tau program yg kita execute pake ShellExecute ini udah selesai kerja atau belum. Jadinya harus di-polling. Malah repot kalau kebetulan ada kemungkinan bbrp instance pro...