26 Haziran 2012 Salı

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.


Gönderen zaman:
Etiketler: , , , , , , ,

Hiç yorum yok:

Yorum Gönder

Kaydol: Kayıt Yorumları (Atom)