Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: Enter Ve YönTuşlarını Tab gibi kullanma  (Okunma sayısı 1837 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı Fatih

  • Emekli Yönetici
  • *****
  • İleti: 2.217
  • Rep: +43/-10
  • Cinsiyet: Bay
    • Delphi Dünyası
Enter Ve YönTuşlarını Tab gibi kullanma
« : 08 Ekim 2005 18:56:58 »
Kod:  (Unknown Language)
  1. procedure TFrmEvrakKayit.FormKeyDown(Sender: TObject; var Key: Word;
  2.   Shift: TShiftState);
  3. begin
  4.       if ((Key = VK_Return)) and not (activecontrol is tbsSkinDBMemo) then
  5.      begin
  6.        keybd_event(VK_Tab, MapVirtualKey(VK_Tab, 0), 0, 0);
  7.        keybd_event(VK_Tab, MapVirtualKey(VK_Tab, 0), KEYEVENTF_KEYUP, 0);
  8.      end
  9. else
  10.      if (Key = VK_Down)  then
  11.      begin
  12.        keybd_event(VK_Tab, MapVirtualKey(VK_Tab, 0), 0, 0);
  13.        keybd_event(VK_Tab, MapVirtualKey(VK_Tab, 0), KEYEVENTF_KEYUP, 0);
  14.      end
  15.      else
  16.  
  17.      if (Key = VK_UP) then
  18.      begin
  19.        keybd_event(VK_Shift, MapVirtualKey(VK_Shift, 0), 0, 0);
  20.        keybd_event(VK_Tab, MapVirtualKey(VK_Tab, 0), 0, 0);
  21.        keybd_event(VK_Tab, MapVirtualKey(VK_Tab, 0), KEYEVENTF_KEYUP, 0);
  22.        keybd_event(VK_Shift, MapVirtualKey(VK_Shift, 0), KEYEVENTF_KEYUP, 0)
  23.      end;
  24. end;
« Son Düzenleme: 18 Haziran 2009 21:31:26 by Kocaturk »
Kayıtlı
Malulen emekli programcı / yazar. Bildiklerini unutmakta olduğundan size cevap veremez.
Sayfa: [1]   Yukarı git
« önceki sonraki »