Girilen Değer Sayı mı Değil mi

[aydogan46]

Merhabalar,
Editin change olayına yazacagım kod Edite girilen değerin sayımı yoksa harf mi olduğunu ayırt edecek. Yani sayısal alanlara baştan rakam girilmesini önlemek için düşünüyorum. Ama o fonksiyonu hatırlayamadım. Yardımcı olur musunuz

[lazio]

onKeyDown gibi olaylarda basılan her tuşun 0 ila 9 arasında olup olmadığını kontrol edebilirsiniz..

[White Rose]

slm

Edit in keypress olayına

If Not (Key in ['0'..'9',#8]) Then key:=#0;

yazarsanız sadece sayı girersiniz.

[aydogan46]

Teşekkür ederim sorun çözüldü.
procedure Ttoplu.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
If Not (Key in ['0'..'9']) Then
begin
key:=#0;
showmessage('Sadece Sayı girilebilir');
end;
end;

[White Rose]

#8 (Backspace) eklemeyi unutmayın yoksa yanlış rakamları silemezsiniz