BOF = beginning of File VK_UP = tombol panah keatas berarti kalau data terakhir EOF gan ?? setau ane EOF yg gk ketemu :D
if dbgrid1.datasource.dataset.BOF then begin if key = VK_UP then edit1.setfocused; end; klo gak ke graphic gak ada kalkulus yg rumit domba kumal hadir disini mengasuh domba2 lucu :)™ :D makasi gan .. sudah bisa.. tapi bisa minta di jelasin gk BOF sama VK_UP tu mksudnya apa?? biar paham :Pea...
if dbgrid1.datasource.dataset is BOF then begin edit1.setfocused; end; coba dulu, lom ane dicoba gk bisa gan.. koneksi ane pakai mydac.. koding ane gini gan procedure Tjual.dbnamaKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); var a:string; begin id.Text:=qprodukid.AsString; a:=snama....
tanya lagi ya om :Peace: gini ada edit terus bawahnya ada dbgrid.. di dbgrid ada 3 data a a a b b b c c c jika di tekan tombol atas pas di data yg paling atas setfocus pindah ke edit gmn ya ? ane coba di dbgrid keyup pas di data ke 2 pindah ke 1 udah lansung ke edit. bukan dari data ke 1 ke edit :D
parameter key di event onkeydown bertipe word jadi jangan diuji dengan char, if key=40 then begin ... end; :ngakaks work gan .. makasi ya .. :addfriends
iya gan, ternyata benar 40; cuma interceptnya jangan di event onkeypress, tapi di event onkeydown. di onkeydown gk bisa di kasih coding if key=#40 then begin ... end;
iya gan, ternyata benar 40; cuma interceptnya jangan di event onkeypress, tapi di event onkeydown. di onkeydown gk bisa di kasih coding if key=#40 then begin ... end;
gan kode ascii arah bawah apa ya ?? 40 kok gk bisa ya procedure Tjual.snamaKeyPress(Sender: TObject; var Key: Char); begin if key=#40 then begin dbnama.SetFocus; end; end; pakai keydown belum arah bawah udah ke dbgridnya :nohope:
gak beda lah http://i698.photobucket.com/albums/vv344/jarwoe/kaskus/ngacir.gif domba kumal hadir disini mengasuh domba2 lucu :)™ tapi gk bisa tu gan :D panggil lewat browser aja gk nongol
tanya lagi om :hammers kalau koneksikan pakai wlan gmn ya ?? kalau LAN kan sudah lancar .. nah kalau WLAN gmn ya ?? :D
lho, kan bisa disetting, aligmentnya left, top, bottom, alclient kan? —domba.kumal01 was here™ ow ya alclient yg belum :D :Peace: tapi gini gan form kadang geser tu kenapa ya ?? misal abis preview laporan > di close previewnya form nya geser dikit ke kanan.. di kasih koding left :=...
WindowState := wsMaximized; domba kumal hadir disini mengasuh domba2 lucu :)™ pakai tu panelnya gak ikut melebar sesuai form nya .. padahal udah setting anchor nya :D
tanya lagi ya om :Peace: biar form tetep pas waktu di buka di notebook / pc dkk gmn ya ?? ane coba di form activate self.height:=screen.height - 10; self.widht:=screen.widht- 10; hasilnya form ke potong + tetep lebih besar dari ukuran layar kalau di NB :D
http://eurekalog.com/tutorials_delphi.php banyak bertanya banyak ilmu... :ngakak domba kumal hadir disini mengasuh domba2 lucu :)™ :ngakaks makasi lagi om :D perlu ke warnet kalau video :ngacir: