engelleme

[xegelix]

merhabalar arkadaşlar edite harf girişini engellnemenin bir yolu varmı yani sadece sayı girişi istiyorum şimdiden teşekkürler

[Ancestor]

Forumda daha önceden bahsi geçmişti sanırım.

Kod: Tümünü seç

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin

if ( StrScan('0123456789.-',Key) <> nil ) or
( Key = Char(VK_BACK) ) then
begin
end
else
begin
Key := #0;
end;

end;

Kolay gelsin, iyi çalışmalar.

[iqprog]

copy paste yaparsak nolcak, düşündünüz mü?

[Ancestor]

Nasıl yani? Ne demek istediğinizi anlayamadım?

[iqprog]

düşün anlarsın.

[ikut]

düşün anlarsın.

Merhaba

Çözüm bulmak eleştirmekten daha kolay geliyor. Maalesef bu ülkemizin gerçeği. Eksik olabilir ama arkadaşımız bir çözüm önermiş. Siz hatasını giderip yeni kodu yazsaydınız daha makbule geçerdi sanırım.

saygılar

[iqprog]

her şeyi de böyle hemen ülkemizi insanımızı kötüleyerek cevap verme huyundan vazgeçin.

Demişsiniz ki :
"
Merhaba

Çözüm bulmak eleştirmekten daha kolay geliyor. Maalesef bu ülkemizin gerçeği. Eksik olabilir ama arkadaşımız bir çözüm önermiş. Siz hatasını giderip yeni kodu yazsaydınız daha makbule geçerdi sanırım.
"

koddaki hatadan bahsetmiyorum, mantık eksik ondan bahsediyorum. hatalı bir şey olsa düzgününü yazardım. hiç bir şey yazmayıp "aman bana ne yaaaa" da diyebilirdim. ama tenezzül edip bir uyarı yazdım. asıl siz eleştiriyi bırakıp ya bu adam neden bahsediyor diye düşünüp çözüm üretin. dikkat ettiyseniz siz de çözüm üretmiyorsunuz, eleştiriyorsunuz. lütfen bi çuvaldızı elinize alın...

[ikut]

Merhaba

Olayı kişiselleştirme tarafında değilim. Burası bir ortam ve bazen en acemice sorular geliyor. Ona bir lafım yok. Ancak "tenezzül" olayı biraz ilginç geldi. Çuvaldız meselesine gelince evet ben bir çözüm üretmiyorum çünkü eksikte olsa bir çözüm var ve kaç kişi copy paste ile rakam yapıştırır.

Benim ifade etmeye çalıştığım şey doğru söylemediğiniz değil söyleme şekliniz. "düşün anlarsın..." Pardon yani burda ilgili şahsın aklına "yahu ben düşünemezmiyim yada aklım mı kıtki böyle deniyor" türü bir şey gelirse ortamın tadı kaçıyor. Yoksa orada son kez on exit olayında bir kontrol daha yapılması gerektiği aşikar. Yada ctrl V yi disable eder buna bir lafım yok.

Beşeriz şaşıyoruz işte.

[iqprog]

seni seviyorum dostum.

[ikut]

seni seviyorum dostum.

Bilmukabele. Allah razı olsun....

[ulu coder]

ikut ve iqprog abilerim, özür dileyerek konuyu değiştiriyorum

Kod: Tümünü seç

if not (key in ['0'..'9',#8,',']) then
  begin
    Key:=#0;  //girilen karakter rakam veya backspace değilse null(#0)'a dönüştür
    Beep;     //bip sesi ile kullanıcıyı uyar.
  end;

Bunu da ekleyeyim ki if not (key in ['0'..'9',#8,',']) hatırlansın istedim.

[rsimsek]

Arkadaşlar birbirimize hitap ederken biraz daha kibar olabiliriz değil mi