KOD AŞKI
29 Ocak 2014 Çarşamba
Edit sadece rakam
Edit1 kutusu ekleyerek sadece rakamların girilmesini sağlayan kod=
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key<'
0'
) or (key>'
9'
) then key:=#0;
end;
end.
Hiç yorum yok:
Yorum Gönder
Sonraki Kayıt
Önceki Kayıt
Ana Sayfa
Kaydol:
Kayıt Yorumları (Atom)
.png)
Hiç yorum yok:
Yorum Gönder