if key=tab then yazıyorum kabul etmiyor (ÇÖZÜLDÜ)

[AliErdem]

key:=vk_tab diye bişiler buldum işimi görmedi yardımcı olursanız sevinirim

[nitro]

http://www.lookuptables.com/

kolay gelsin

[AliErdem]

arkadaşım çok saol ama sorun bende ozaman yardım edebilirmisin

keypress olayında

if key= tab then
dbedit10.setfocus;


diye birşey kullanmak istiyorum kabul etmiyor

[Hakan Can]

Ancak sonunda da Key := 0 demen gerekiyor.
Yani SetFocus ediyorsun sonra bir daha TAB oluyor.

İyi çalışmalar.

[AliErdem]

yazılış yanlış galiba daha baştan hata geliyo yani
if key=tab then
satırını geçmiyor

tabın kullanışı nasıl işte

[naile]

#8 veya #9 sanırım.

[Hakan Can]

Component Palette "Additional" sekmesinde TApplicationEvents diye bir component var. Bunu kullanmalısınız. Bunun OnShortCut eventine şuna benzer bir kod yazmalısınız:

Kod: Tümünü seç

procedure TAnaForm.ApplicationEvents1ShortCut(var Msg: TWMKey;
  var Handled: Boolean);
begin
  if Msg.CharCode = VK_TAB then
  begin
    Handled := TRUE;
    Edit3.SetFocus;
  end;
end;

Diğer bir çözüm de; Form.KeyPreview'ini TRUE yapıp Form'un OnKeyUp eventine şuna benzer bir kod yazarsınız (Gerçi bu önce TAB'ı çalıştırıyor. O yüzden görsel olarak tam çözüm değil):

Kod: Tümünü seç

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_TAB then Edit3.SetFocus;
end;

TAB windowsun standart tuşlarından. O yüzden OnKeyPress ve OnKeyDown eventlerinde yakalanmıyor.

İyi çalışmalar.

[AliErdem]

TŞKLER ARKADAŞLAR CEVAPLAR İÇİN İŞİMİ GÖRDÜ