Key özelliğini kullanmak...

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
comlekciler
Üye
Mesajlar: 58
Kayıt: 17 Nis 2006 12:35

Key özelliğini kullanmak...

Mesaj gönderen comlekciler »

Selam arkadaşlar,

Ben bir editin içine sadece hex sayılarını girmek istiyorum. Eğer farklı bir tuşa basılmışsa hiç bir şey yazmayacak ve eğer küçük karakter şeklinde yazılmışsa büyük harf yapacak. Aşağıda bir kod yazdım büyük harfe çeviriyor ama başka harfe basarlarsa o harf ekrana geliyor ben gelmemesini istiyorum.

Kod: Tümünü seç

if (key in ['A'..'F']) or (key in ['0'..'9']) or (key in ['a'..'f']) then
 begin
  key := AnsiUpperCase(Key)[1];
 end
 else
 begin
  edit1.text:='';
 end;
Ayrıca edit1.text:='' yerine key:='' neden olmuyor.

Bilmeyenler vardır diye eklemek istiyorum HEX sayılar 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F şeklinde onaltılık sayı tabanıdır.

Hatam nerede anlamadım yardımlarınız bekliyorum. Teşekkürler...
"Bilgisizlerin geçtikleri mevkiye yaptığı fenalığı, yüzlerce aslan bir araya gelse yapamaz" MEVLANA
Kullanıcı avatarı
naile
Admin
Mesajlar: 1873
Kayıt: 11 Haz 2003 10:11

Mesaj gönderen naile »

else kısmına yazdığın kod yerine şunu yazmalısın:

Kod: Tümünü seç

else key := #0;
Kullanıcı avatarı
comlekciler
Üye
Mesajlar: 58
Kayıt: 17 Nis 2006 12:35

Mesaj gönderen comlekciler »

Cevap için çok teşekkürler işe yaradı. :) Ama başka bir sorun ortaya çıktı. :oops: Bu sefer yanlış yazıldığı zaman silmek istediğimizde BACKSPACE veya DELETE tuşlarına batığımız zaman iş yapmıyor bunların da çalışması için IF kısmına hangi komutları eklemeliyim. Yani BACKSPACE ve DELETE tuşlarının komutlarını anlamasını iptal etmemesini nasıl sağlarım acaba?

Şimdiden çok teşekkürler...
"Bilgisizlerin geçtikleri mevkiye yaptığı fenalığı, yüzlerce aslan bir araya gelse yapamaz" MEVLANA
Glen
Üye
Mesajlar: 277
Kayıt: 12 Eki 2005 11:58

Mesaj gönderen Glen »

if (key <> #8) and (key <> #127) then..

Kisacasi:
http://www.scotek.demon.co.uk/ascii.html
Cevapla