IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  kral sohbet




Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 18 Mart 2015, 14:09   #1
Çevrimiçi
edite sadece rakam veya harf girilmesi


sohbet


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if ( StrScan('0123456789.-',Key) <> nil ) or ( Key = Char(VK_BACK) ) then begin end else Key := #0; end; //yalnız harf girme procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if ((UpCase(Key) < 'A') or (UpCase(Key) > 'Z')) then Key := #0; end;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if ( StrScan('0123456789.-',Key) <> nil ) or ( Key = Char(VK_BACK) ) then begin end else Key := #0; end; //yalnız harf girme procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if ((UpCase(Key) < 'A') or (UpCase(Key) > 'Z')) then Key := #0; end;

__________________
SusKun ve Sessiz Mürekkep...


Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.

  Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
radyo44.com.tr
Cevapla

Etiketler
edite, girilmesi, harf, rakam, sadece, veya

Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Sadece rakam kullanabileceğiniz şık bir edit component Kaf_Dağı Delphi 0 18 Mart 2015 14:02
Başka edite gelen veriyi almak Kaf_Dağı Delphi 0 11 Mart 2015 11:08
Büyük Harf / Uzun Harf / Tekrar Harf -Uyarı/koruma diyorumki mIRC Scripting Sorunları 0 06 Ekim 2010 17:22
Uydu Frekansları Ayarları ve Girilmesi YapraK Uydu Dünyası 1 16 Ocak 2010 18:18
Random, harf+rakam.. eviL mIRC Scripting Sorunları 4 18 Ocak 2006 19:08