Forumdaki diğer yazışmalardan edite sadece sayı girilmesi işlemini aşağıdaki kod ile tamamladım.
Kod: Tümünü seç
case ord(key) of
48..57: // Sayısal aralıksa birşey yapma
else
ShowMessage('Lütfen Sayı Giriniz');
key:=#0;
end;
Ancak bu kod Edit 'e nokta (.) yazmasını da engelliyor. Bu alanda küsüratlı hesaplamalar yaptırıyorum. Yukaridaki kodda nasıl birşey yaparak , nokta (.) hariç sayısal bir karakter girilmesini sağlayabiliriz ?
Not: Ayrıca Forumdaki mesajlarda Klavye Tuş Kodlarında nokta (.) tuşunun key kodunu bulamadım. Bilen varmıydı acaba ?
Teşekkür eder, iyi akşamlar dilerim
Sevgi ve Saygılarımla
Fatih