Yazdığınız makaleleri ve üyelerimizin işine yarayacağını düşündüğünüz kodlarınızı gönderebilirsiniz. Bu foruma soru sormayın!
zengin
Üye
Mesajlar: 233 Kayıt: 06 Ağu 2003 10:13
Mesaj
gönderen zengin » 10 Ara 2010 01:38
s.a
Klevyeden Basılan Tuşun Sıra Numarasını Bulma Bu Kod Bir Çok arkadaşımın İşine yarar diye ilave ediyorum
Not : Formun keypreview true olacak
Kod: Tümünü seç
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Edit2.Text:=(inttostr(key));//Edit2 ye key kodlarını atıyor...
Edit1.Text :='';
end;
Kullanımı ise
Kod: Tümünü seç
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = 13 then
begin
ShowMessage('Enter > Deneme');
end;
end;
Umarım faydalı olur
En son
zengin tarafından 11 Ara 2010 03:46 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
Zengin
aslangeri
Moderator
Mesajlar: 4322 Kayıt: 26 Ara 2003 04:19
Konum: Ankara
İletişim:
Mesaj
gönderen aslangeri » 10 Ara 2010 02:32
s.a.
sıra numarası yerine ASCII kod karşılığı deseydiniz daha doğru olurdu.
zira sıra numarası deyince başka bir şey anlaşılabilir.
iyi çalışmalar.
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
kodcuminik
Üye
Mesajlar: 140 Kayıt: 11 Oca 2009 10:25
Mesaj
gönderen kodcuminik » 04 Ağu 2012 08:42
peki hocam windowsda farklı bir programda basılan tuşu nasıl öğrenebiliriz ?
bilmezler bilmediklerinide bilmezler ama kendilerini bilir sanırlar