Edit1 in içine ben klavyeden "XYZ" gireceğim ama edit in içinde "ABC" yazacak?

arzu123 · 09-03-06, 23:03

bir nevi şaka programı olacak aslında düşüncem çok da basit birtane label
bir tane edit1 labelde şifre giriniz yazıyor .....
bunlar tamam da
edit1 in içine yazı yazarken herhangi bir tuşa bastığımda ilk harf "A" olacak misal ikinci olarak ben klavyeden "x" tuşuna bastım ama edit1 in içinde "B" harfi çıkacak sırayla klavyeden herhangi başka bi tuşa bastım AB nin yanına "C" de yazacak
yani ben klavyeden "XYZ" gireceğim edit in içinde "ABC" yazacak
umarım anlatabilmiştirim fikirlerininizi bekliyorum...

uğraştım uğraştım yapamadım

iyi algoritmalar

mnemo · 10-03-06, 11:19

Edit1 nesnesinin KeyPress yordamına şu kodu yaz:

if Key=Char(Ord('X')) then
Key:=Char(Ord('A'))
else if Key=Char(Ord('Z')) then
Key:=Char(Ord('B'));

arzu123 · 12-03-06, 16:35

la edit1 in içine sen mehmet yazacaksın ahmet yazısı çıkacak harfler tek tek gelecek klavyeden basıldıkça

tlmusti · 13-03-06, 16:15

Bu çok basit birşey ama sen biraz geliştir bunu..yine edit1 in change olayına yaz..O hangı harfe basarsa bassın sen kafandan harf ürettir...O kadar dahi iyi olur klavye bozuldu sanar....
Bi de unutmadan yazı sayı ürettikten sonra daha edit1 e yazdırırken içiriği siler yazar bunun içinde edit1.text:=edit1.text+ne yazdıracaksan

theGothika · 13-03-06, 18:52

Asagidaki kodu Edit1 in OnKeyPress olayina yazarsan istedigin olur.

Alıntı:

Var
i:Integer;
Begin
Key:=#0;
Edit1.Text:=Edit1.Text+Char(65+i);
Inc(i);
End;

09-03-06, 23:03	#1
arzu123 Geçerken Uğradım Giriş Tarihi: 02-09-2005 Yaş: 23 Mesajlar: 95 Rep Puanı: 3324 Rep Gücü: 88	Edit1 in içine ben klavyeden "XYZ" gireceğim ama edit in içinde "ABC" yazacak? bir nevi şaka programı olacak aslında düşüncem çok da basit birtane label bir tane edit1 labelde şifre giriniz yazıyor ..... bunlar tamam da edit1 in içine yazı yazarken herhangi bir tuşa bastığımda ilk harf "A" olacak misal ikinci olarak ben klavyeden "x" tuşuna bastım ama edit1 in içinde "B" harfi çıkacak sırayla klavyeden herhangi başka bi tuşa bastım AB nin yanına "C" de yazacak yani ben klavyeden "XYZ" gireceğim edit in içinde "ABC" yazacak umarım anlatabilmiştirim fikirlerininizi bekliyorum... uğraştım uğraştım yapamadım iyi algoritmalar Mesajı son düzenleyen arzu123* ( 09-03-06 - 23:05 )*

10-03-06, 11:19	#2
mnemo Yeni Üye Giriş Tarihi: 06-10-2005 Yer: Baki Mesajlar: 28 Rep Puanı: 3148 Rep Gücü: 0	Cvp: Edit1 in içine ben klavyeden "XYZ" gireceğim ama edit in içinde "ABC" yazacak? Edit1 nesnesinin KeyPress yordamına şu kodu yaz: if Key=Char(Ord('X')) then Key:=Char(Ord('A')) else if Key=Char(Ord('Z')) then Key:=Char(Ord('B'));

12-03-06, 16:35	#3
arzu123 Geçerken Uğradım Giriş Tarihi: 02-09-2005 Yaş: 23 Mesajlar: 95 Rep Puanı: 3324 Rep Gücü: 88	Cvp: Edit1 in içine ben klavyeden "XYZ" gireceğim ama edit in içinde "ABC" yazacak? la edit1 in içine sen mehmet yazacaksın ahmet yazısı çıkacak harfler tek tek gelecek klavyeden basıldıkça

13-03-06, 16:15	#4
tlmusti Eski Üye Giriş Tarihi: 27-10-2005 Yer: yurt Türkiye... Mesajlar: 712 Rep Puanı: 2667482 Rep Gücü: 26734	Cvp: Edit1 in içine ben klavyeden "XYZ" gireceğim ama edit in içinde "ABC" yazacak? Bu çok basit birşey ama sen biraz geliştir bunu..yine edit1 in change olayına yaz..O hangı harfe basarsa bassın sen kafandan harf ürettir...O kadar dahi iyi olur klavye bozuldu sanar.... Bi de unutmadan yazı sayı ürettikten sonra daha edit1 e yazdırırken içiriği siler yazar bunun içinde *edit1.text:=edit1.text+ne yazdıracaksan* Mesajı son düzenleyen tlmusti* ( 13-03-06 - 16:19 )*

ForumTR'ye Reklam Vermek İçin Tıklayınız: network@frmtr.com

Konu Araçları
Çıktı Görüntüsünü Göster Sayfayı E-posta İle Yolla