Klevyeden Basılan Tuşun Sıra Numarasını Bulma

Yazdığınız makaleleri ve üyelerimizin işine yarayacağını düşündüğünüz kodlarınızı gönderebilirsiniz. Bu foruma soru sormayın!
Cevapla
zengin
Üye
Mesajlar: 233
Kayıt: 06 Ağu 2003 10:13

Klevyeden Basılan Tuşun Sıra Numarasını Bulma

Mesaj gönderen zengin »

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
Kullanıcı avatarı
aslangeri
Moderator
Mesajlar: 4322
Kayıt: 26 Ara 2003 04:19
Konum: Ankara
İletişim:

Re: Klevyeden Basılan Tuşun Sıra Numarasını Bulma

Mesaj gönderen aslangeri »

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

Re: Klevyeden Basılan Tuşun Sıra Numarasını Bulma

Mesaj gönderen kodcuminik »

peki hocam windowsda farklı bir programda basılan tuşu nasıl öğrenebiliriz ?
bilmezler bilmediklerinide bilmezler ama kendilerini bilir sanırlar
Cevapla