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


Bu Konudaki Yorumlar
Edit Sayı Girme - Yazar: OZCANK - 14-09-2019, Saat: 15:42
Edit Sayı Girme - Yazar: esistem - 14-09-2019, Saat: 16:29
Edit Sayı Girme - Yazar: KUNTAY - 15-09-2019, Saat: 00:32
Cvp: Edit Sayı Girme - Yazar: Aktolgali - 15-09-2019, Saat: 01:28
Cvp: Edit Sayı Girme - Yazar: kanjey - 16-12-2020, Saat: 01:02
Edit Sayı Girme - Yazar: mustafaozpinar - 16-12-2020, Saat: 01:54

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Edit içindeki tarihin doğru olup olmadığını kontrol etmek? hasansavci 2 359 17-10-2023, Saat: 03:35
Son Yorum: mcuyan
  InputBox a sadece rakam girme. noname101 3 597 06-06-2023, Saat: 10:21
Son Yorum: COMMANDX
  Databasedeki total sayı Altıner 2 636 12-12-2022, Saat: 11:14
Son Yorum: Altıner
  delphi combobox edit yunusemre 6 1.563 19-05-2022, Saat: 22:50
Son Yorum: mcuyan
  random 0001 ile 1000 arası sayı üretme erdogan 4 1.145 14-04-2022, Saat: 00:27
Son Yorum: enigma



Konuyu Okuyanlar: 1 Ziyaretçi