numpang berbagi... neh tutorial bagi temen temen yang butuh edit1.text agar hanya bisa di input angka (tidak bisa terima huruf selain angka ) biasa dapat dari googling he..he..he...
source nya seperti ini...
//mensetting karakter apa saja yang boleh diinput
if not(key in['0'..'9',#13,' ','.',#8]) then
begin
key:=#0;//bila selain karakter diatas , maka akan kosong
end;
if key=#13 then
begin
if Edit1.Text<>'' then
begin
//perintah bila tombol enter di tekan , dan bila edit1 tidak kosong
end;
end
else
begin
//perintah bila komponen edit1 tidak di isi
end;
cukup sekian tutor kali ini ... semoga bermanfaat.., satu pesan lagi... ternyata seorang IT harus tau kode ASSCI he,,he,,he,, salam delhpi.....
sumber dari mas Bayu Idham Fathurachman
