KeyPress Özelliği ?

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
s1lv3r
Üye
Mesajlar: 91
Kayıt: 09 Nis 2006 03:03

KeyPress Özelliği ?

Mesaj gönderen s1lv3r »

Edit1 deki bir yazıyı butona basıldığında edit2 ye değiştirerek geçimrk istiyorum. Yani edit1 deki tüm ı , ğ , ş , ç harfleri edit2 ye i , g , s , c olarak geçsin :roll:

Bunu keypress ile anında düzeltebiliyorum fakat ben butona basıldığında edit2de düzelsin istiyorum..

Nasıl bir kod kullanabilirim :roll:
Demitri

Mesaj gönderen Demitri »

Kod: Tümünü seç

function ChEng (ch : char) : char;
begin
if (ch = 'Ğ') or (ch = 'ğ') then begin result:='G';exit;end;
if (ch = 'Ü') or (ch = 'ü') then begin result:='U';exit;end;
if (ch = 'Ş') or (ch = 'ş') then begin result:='S';exit;end;
if (ch = 'İ') or (ch = 'ı') then begin result:='I';exit;end;
if (ch = 'Ö') or (ch = 'ö') then begin result:='O';exit;end;
if (ch = 'Ç') or (ch = 'ç') then begin result:='C';exit;end;
if (ch = 'i') then begin result:='I';exit;end;
result:=ch;
end;
Kullanımı
edit1 deki tuşların edit2 de görünmesi için

Kod: Tümünü seç

edit1 onkeypress olayına
procedure FormEdit1Press(Sender: TObject; var Key: Char);
begin
edit2.text:=edit2.text+cheng(key); // edit2 ye eklemek için
//edit2.text:=edit2.text+cheng(key); // edit2 yi değiştirmek için
end;
s1lv3r
Üye
Mesajlar: 91
Kayıt: 09 Nis 2006 03:03

Mesaj gönderen s1lv3r »

Teşekkürler.
s1lv3r
Üye
Mesajlar: 91
Kayıt: 09 Nis 2006 03:03

Mesaj gönderen s1lv3r »

OLdu fakat ufak bir sorun var kullanıcı başka bir tuşa basınca edit2 bozuluyor örneğin backspace basınca başka bir karakter çıkıyor ve edit2ye öyle geçiyor :roll:
ulu coder
Üye
Mesajlar: 838
Kayıt: 01 Nis 2006 06:46
Konum: Ankara

Mesaj gönderen ulu coder »

Kod: Tümünü seç

if key<> #8 then edit2.text:=edit2.text+cheng(key);
//eğer basılan tuş backspace değilse...
s1lv3r
Üye
Mesajlar: 91
Kayıt: 09 Nis 2006 03:03

Mesaj gönderen s1lv3r »

Peki bu tuş listesini nereden bulabiliriz ? #8 gibi
ulu coder
Üye
Mesajlar: 838
Kayıt: 01 Nis 2006 06:46
Konum: Ankara

Mesaj gönderen ulu coder »

Sanırım #13 enter.
başka bi şeye gerek yok zaten 8)
Kullanıcı avatarı
rsimsek
Admin
Mesajlar: 4482
Kayıt: 10 Haz 2003 01:48
Konum: İstanbul

Mesaj gönderen rsimsek »

Object Inspector (Properties) OnKeyUp F1 çıkan helpten Virtual Key codes :idea:
Bilgiyi paylaşarak artıralım! Hayatı kolaylaştıralım!!
Cevapla