Kodbank İndir

! CODEBANK 2012 !

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

ÖNEMLİ AÇIKLAMA: MUTLAKA OKUYUNUZ!

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

Gönderen Konu: Enter'i TAB Tuşu Gibi Kullanmak  (Okunma sayısı 3553 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı CMNSOFT

  • Kıdemli Üye
  • *****
  • İleti: 82
  • Rep: +2/-2
  • Cinsiyet: Bay
    • http://www.cmnsoft.com
Enter'i TAB Tuşu Gibi Kullanmak
« : 21 Ekim 2005 16:09:33 »
Kod: Delphi
  1. procedure TForm1.FormKeyPress(Sender: TObject;
  2.  
  3.                               var Key: Char);
  4.  
  5. begin
  6.  
  7.   if (Key = #13) then { Eğer ENTER'a basılmışsa... }
  8.  
  9.  begin { ve Aktif olan control TEdit tipinde ise... }
  10.  
  11.    if ActiveControl is TEdit then
  12.  
  13.    begin
  14.  
  15.      Key := #0; { Enter'a basılmamış gibi göster... }
  16.  
  17.       { ve TAB tuşunun işlemini yerine getir... }
  18.  
  19.       Perform(WM_NEXTDLGCTL, 0, 0);
  20.  
  21.     end;
  22.  
  23.   end;
  24.  
  25. end;
Kayıtlı
:::::::::::::::::::: www.CMNSOFT.com ::::::::::::::::::::

muderless

  • Ziyaretçi
Ynt: Enter'i TAB Tuşu Gibi Kullanmak
« Yanıtla #1 : 26 Kasım 2005 01:32:00 »
« Son Düzenleme: 28 Kasım 2005 18:10:55 by muderless »
Kayıtlı

Çevrimdışı kirve

  • Kıdemli Üye
  • *****
  • İleti: 87
  • Rep: +1/-0
Ynt: Enter'i TAB Tuşu Gibi Kullanmak
« Yanıtla #2 : 19 Şubat 2008 00:11:25 »
denedim ama calismadi.
Kayıtlı

Çevrimdışı SelçuK

  • Kıdemli Üye
  • *****
  • İleti: 668
  • Rep: +21/-3
  • Cinsiyet: Bay
  • Pc_CoPaT
    • Her Zaman Keşfetmek İçin Bak....
Ynt: Enter'i TAB Tuşu Gibi Kullanmak
« Yanıtla #3 : 19 Şubat 2008 10:18:35 »
eğer kullandığınız bileşen TEdit değilde farklı bir 3. parti bileşen ise mesela TRzEdit o zaman çalışmayacaktır. Kolay gelsin...
Kayıtlı
İnanki Başarasın, Başarki İnanasın!

Çevrimdışı kirve

  • Kıdemli Üye
  • *****
  • İleti: 87
  • Rep: +1/-0
Ynt: Enter'i TAB Tuşu Gibi Kullanmak
« Yanıtla #4 : 19 Şubat 2008 11:44:40 »
edit1 i kullanmistim... bu standart compenentinde duran.. ben daha yeni basladim belki ben bi hata yapmisimdir.. tedit dedigin edit1 oluyor deilmi
Kayıtlı

Çevrimdışı ineffable_space

  • Kıdemli Üye
  • *****
  • İleti: 203
  • Rep: +2/-2
Ynt: Enter'i TAB Tuşu Gibi Kullanmak
« Yanıtla #5 : 19 Şubat 2008 13:18:01 »
Formun KeyPreview (ismi tam olarak böyle olmayabilir..) özelliğini True yapmalısın..
Kayıtlı

Çevrimdışı hayati

  • Administrator
  • *****
  • İleti: 860
  • Rep: +19/-3
  • Cinsiyet: Bay
Ynt: Enter'i TAB Tuşu Gibi Kullanmak
« Yanıtla #6 : 19 Şubat 2008 16:39:43 »
Denildiği gibi formun KeyPreview özelliğini true yaptıktan sonra,
yine formun Events ında OnKeyDown özelliğine (çift tıklayın) şunları yazın
Kod: Delphi
  1. if key = VK_RETURN then
  2.         selectnext(activecontrol,true, true);

tam kod şu şekilde
Kod: Delphi
  1. procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  2.   Shift: TShiftState);
  3. begin
  4. if key = VK_RETURN then
  5.         selectnext(activecontrol,true, true);
  6. end;

Enter kullanırken pas geçmesini istediğiniz kontrol varsa, TabStop değerini (var sayınlan True) False olarak değiştirin.

yada işe edit karıştırmadan

Kod: Delphi
  1. procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
  2. begin
  3.      if (Key = #13) then
  4.      begin
  5.         Key := #0;
  6.         Perform(WM_NEXTDLGCTL, 0, 0);
  7.      end;
  8. end;
kullanabilirsiniz.
« Son Düzenleme: 19 Şubat 2008 16:45:11 by hayati »
Kayıtlı
Olsa dahi tenimin kıl biten her yeri bir dil, güçsüzüm şükretmeye,şükrüm binde bir bile değil (İ.R.)

Çevrimdışı barutali

  • Administrator
  • *****
  • İleti: 2.117
  • Rep: +51/-0
  • Cinsiyet: Bay
  • Falan filan ...
Ynt: Enter'i TAB Tuşu Gibi Kullanmak
« Yanıtla #7 : 24 Aralık 2009 15:32:35 »
JVCL içinde JVenterAsTab tı sanırım bileşenin adı ondan bi tane forma koyuyoruz :D

taborder sırasına göre kendi gidiyor :D
Kayıtlı



Amatör Küme Programcı

Çevrimdışı mrigi

  • Üye
  • ***
  • İleti: 23
  • Rep: +0/-0
  • "imkansız" üşenmekten başka bir şey değildir.
Ynt: Enter'i TAB Tuşu Gibi Kullanmak
« Yanıtla #8 : 24 Aralık 2009 18:05:40 »
Kod: Pascal
  1. procedure Etab(key:integer);
  2. {Form'un KeyPreview özelliği True olmalı}
  3. begin
  4. if form1.ActiveControl is TEdit then
  5. if key=13 then
  6.   begin
  7.     KeyBd_Event(9, 0, 0, 0);
  8.     Keybd_Event(9, 0, KEYEVENTF_KEYUP, 0);
  9.   end;
  10. end;
  11.  
  12. procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  13.   Shift: TShiftState);
  14. begin
  15. etab(key);
  16. end;
  17.  

TabOrder:=True olan editlerde taba basılmış etkisi verecektir.
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »