Coba coding di bawah ini" function TForm1.CanWrite(ch:char):boolean; begin Result:= (ch in['0'..'9',#13,#8]); end;
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if (DBGrid1.SelectedIndex=1) then begin if not CanWrite(Key) then key:=#0; end; end; Intinya kita membatasi bahwa pada DBGrid1.SelectedIndex ke 1 hanya menerima angka 0..9 , Enter dan tab yang di definisikan pada function CanWrite. Semoga membantu Regards Meirza 2006/7/31, Ibnu Hartanto <[EMAIL PROTECTED]>: > > sekarang gw lagi bikin program pake delphi erhuubngan dengan database. nah > > masalahnya : > > di program gw ada coponent DBGrid dengan 2 Field. Field 1= Nama Type Text, > Field2=angka Type text (alesan kenapa memakai type ini karena nantinya > bakalan bisa memasukan huruf juga selain angka tapi harus memilih salalh > satu) > nah gw monya utk field yg ke 2 pas user teken tombol di keyboard huruf > atau > selain angka maka tidak bakalan bisa masuk dan isi di cell yg sedang aktif > menjadi kosong. tapi inputnya di dbgrid langsung. > > ada yg bisa mecahin solusi gw gk urgent. > > Thnxs B4 > > ibnu > > [Non-text portions of this message have been removed] > > > [Non-text portions of this message have been removed] -- www.itcenter.or.id - Komunitas Teknologi Informasi Indonesia Info, Gabung, Keluar, Mode Kirim : [EMAIL PROTECTED] :: Hapus bagian yang tidak perlu (footer, dst) saat reply! :: ## Jobs: itcenter.or.id/jobs ## Bursa: itcenter.or.id/bursa ## $$ Iklan/promosi : www.itcenter.or.id/sponsorship $$ [@@] Jaket ITCENTER tersedia di http://shop.itcenter.or.id Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/ITCENTER/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
