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 246 Dün, Saat: 22:20
Son Yorum: SimaWB
  Edit Sayı Çevirme OZCANK 13 287 10-09-2019, Saat: 15:43
Son Yorum: faktoral
  combobox veriyi edit text gösterme burak 6 444 24-08-2019, Saat: 09:35
Son Yorum: bünyamin68
  Mask Edit Null Value Error narkotik 2 209 25-07-2019, Saat: 04:42
Son Yorum: narkotik
  Edit şifre gizleme ahmetb 8 824 01-02-2019, Saat: 09:24
Son Yorum: edo



Konuyu Okuyanlar: 1 Ziyaretçi