Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Edit Sayı Girme
#1
Merhaba; Edit1 alanına;

'1','2','3','4','5','6','7','8','9','10','11','12' Dışında hiç bir şey girmemesini nasıl yaparım ?


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Not(Key in ['1','2','3','4','5','6','7','8','9','10','11','12', #8])  Then
 Key := #0;
end;

bu şekilde olmadı.
Cevapla
#2
ComboBox kullanın hatta yanına Ay isimlerinide yazın.
Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
WWW
Cevapla
#3
case ord(key) of   
 1..12: // Sayısal aralıkta bir değerise birşey yapma
 else
 ShowMessage('Lütfen Rakam Giriniz');
 key:=#0;
end;

Senin kod için

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
 begin
   if not (key in[‘0’..’9′, #8]) then
 begin
   ShowMessage(‘Yalnızca Rakam Giriniz’);
   key:=#0;
 end;
 end;

Galiba Bu işini görecektir.
Faydalanılmayan bilgi, harcanmayan ve hiç kimseye hayrı dokunmayan define gibidir.

Hz. Muhammed (sav.)
Cevapla
#4
(15-09-2019, Saat: 00:32)KUNTAY Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
case ord(key) of   
 1..12: // Sayısal aralıkta bir değerise birşey yapma
 else
 ShowMessage('Lütfen Rakam Giriniz');
 key:=#0;
end;

Senin kod için

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
 begin
   if not (key in[‘0’..’9′, #8]) then
 begin
   ShowMessage(‘Yalnızca Rakam Giriniz’);
   key:=#0;
 end;
 end;

Galiba Bu işini görecektir.

@KUNTAY rakam girmek için doğru, ay girmek için yanlış bir cevap olmuş. Ya kullanıcı 23 yazarsa ne olacak o zaman da mod12 mi kullansın  Big Grin

@OZCANK  Kodla bu dediğini yapmak mümkün ama boş yere kod kalabalığı olur, doğru çözüm combo kullanman.
Dosyalarınızı kendi bulutunuza yedekleyin. Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.

Eyvallah..
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Edit'i Combobox gibi kullanmak bünyamin68 7 374 19-09-2019, Saat: 22:20
Son Yorum: SimaWB
  Edit Sayı Çevirme OZCANK 13 455 10-09-2019, Saat: 15:43
Son Yorum: faktoral
  combobox veriyi edit text gösterme burak 6 520 24-08-2019, Saat: 09:35
Son Yorum: bünyamin68
  Mask Edit Null Value Error narkotik 2 252 25-07-2019, Saat: 04:42
Son Yorum: narkotik
  Edit şifre gizleme ahmetb 8 914 01-02-2019, Saat: 09:24
Son Yorum: edo



Konuyu Okuyanlar: 1 Ziyaretçi