ArÅŸiv Anasayfa Delphi ipuçları
Sayfalar: 1
Enter'i TAB Tuşu Gibi Kullanmak Gönderen: CMNSOFT Tarih: 21 October 2005 17:09:33
:
procedure TForm1.FormKeyPress(Sender: TObject;
                              var Key: Char);
begin
  if (Key = #13) then { Eğer ENTER'a basılmışsa... }
  begin { ve Aktif olan control TEdit tipinde ise... }
    if ActiveControl is TEdit then
    begin
      Key := #0; { Enter'a basılmamış gibi göster... }
      { ve TAB tuşunun işlemini yerine getir... }
      Perform(WM_NEXTDLGCTL, 0, 0);
    end;
  end;
end;
Ynt: Enter'i TAB Tuşu Gibi Kullanmak Gönderen: muderless Tarih: 26 November 2005 01:32:00
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13then
  begin
    Key := #0;
    Perform(CM_DialogKey, VK_TAB, 0);
  end;
end;

bence yeterli olucaktır ....ve sadece edit kutusu yok formlarda memo vs de var.... sizin yöntemde win beep sesi çıkarıyor bilginize
Ynt: Enter'i TAB Tuşu Gibi Kullanmak Gönderen: kirve Tarih: 19 February 2008 00:11:25
denedim ama calismadi.
Ynt: Enter'i TAB Tuşu Gibi Kullanmak Gönderen: SelçuK Tarih: 19 February 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...
Ynt: Enter'i TAB Tuşu Gibi Kullanmak Gönderen: kirve Tarih: 19 February 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
Ynt: Enter'i TAB Tuşu Gibi Kullanmak Gönderen: ineffable_space Tarih: 19 February 2008 13:18:01
Formun KeyPreview (ismi tam olarak böyle olmayabilir..) özelliğini True yapmalısın..
Ynt: Enter'i TAB Tuşu Gibi Kullanmak Gönderen: babahayati Tarih: 19 February 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
if key = VK_RETURN then
        selectnext(activecontrol,true, true);

tam kod ÅŸu ÅŸekilde
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = VK_RETURN then
        selectnext(activecontrol,true, true);
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

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
     if (Key = #13) then 
     begin
        Key := #0; 
        Perform(WM_NEXTDLGCTL, 0, 0); 
     end;
end;
kullanabilirsiniz.