Cursor Edit Konumlandırma [Çözüldü]

[ozcank]

Arkadaşlar Form da arama yapmak için F2 tuşuna basıldığında GroupBox1 açılıyor ve içerisinde Edit5.Text ve DBGrid1 var ama ben F2 bastığım zaman GroupBox1 aktif oluyor fakat cursor Edit5 de değilde Edit1 de duruyor nasıl yönlendirebilirim yardımcı olur musunuz?

Kod: Tümünü seç

procedure TForm3.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=vk_f2 then
GroupBox1.Visible:=True;
end;

[ogzark]

procedure TForm3.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=vk_f2 then
GroupBox1.Visible:=True;
edit1.SetFocus;
end;

[zengin]

s.a

Kod: Tümünü seç

Edit5.SetFocus; 

olarak kullan

[ertank]

Merhaba,

Form üzerinde her bir focus kabul eden bileşenin TabOrder parametresi vardır. GroupBox içinde ilk focus alacak bileşen TabOrder değeri 0 olan bileşendir. Muhtemelen sizin Edit1.TabOrder = 0 ve Edit5.TabOrder > 0 şeklinde bir değer.

Eğer Object Inspector içinde Edit5 bileşeninin TabOrder değerini 0 yaparsanız ilave kod yazmaya gerek kalmadan istediğinizi elde edebilirsiniz.

[ozcank]

ertank kardeşim dediğini yaptım; Object Inspector değeri Edit1.TabOrder=5 di ben 0 yaptım. GrupBox1 deki Edit5 ise 0 dı zaten ama yine Edit5 e cursor gelmedi. Bu ara da 1,2,3,4,5.. denedim yine olmadı. Edit5.SetFocus; yapınca istediğim oluyor fakat DBGrid1 ekranında dolaşırken Edit5.SetFocus takılıyor. DBGrid de bir satır aşağı iniyor ikinci satır da Focus a gidiyor.

[ertank]

Kod paylaşmanız mümkün mü?

[ozcank]

ertank kardeşim kod şöyle;

GroupBox1 ilk form açıldığında Visible yapıyorum.

Kod: Tümünü seç

procedure TForm3.FormActivate(Sender: TObject);
begin
GroupBox1.Visible:=False;

Sonra da Form3 de ilk Edit1 var bur da iken F2 bastığında şu kod çalışıyor ve Edit5 de öğrenci ad soyad araması yapıyor.

Kod: Tümünü seç

procedure TForm3.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 IF key=vk_f2 then  // Öğrenci Rehber
GroupBox1.Visible:=True;
Edit5.SetFocus;
end;

Edit5.SetFocus; Tamda istediğimi yapıyor fakat DBGrid1 ekranında dolaşırken devamlı setfocus a takılıyor. Setfocus kullanmadığım zaman ise F2 bastığımda Edit5 e konumlanmıyor.

[ertank]

Öncelikle gönderdiğiniz kod ile ilgili;
- FormKeyDown() olayında if ifadesini begin..end bloğu içine almadığınız için Edit5.SetFocus her zaman çalışır. Eğer Edit5 GroupBox1 içinde ise ve F2 tuşuna basılmadan önce başka tuşa basılır ise hata alırsınız.
- begin..end arasında kalan kodları en az iki karakter boşluk bırakarak yazmanızda fayda var. Zira gönderdiğiniz kod bu tür formata uygun yazılmadığı için bir önceki maddede belirtilen durumu ilk bakışta algılamak kolay olamayabilir.

Yukarıdakiler göz önünde bulundurulduğu zaman FormKeyDown() olayını aşağıdaki şekilde yazmanız mümkündür.

Kod: Tümünü seç

procedure TForm3.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  // Öğrenci Rehber
  if Key = VK_F2 then GroupBox1.Visible := True;
  if Edit5.CanFocus then Edit5.SetFocus();
end;

Sorunuza gelince; ilgili DBGrid nesnesinin bağlı olduğu DataSource bileşenini incelemek gerekli. Bağlı olan DataSource olaylarından OnDataChange() veua OnUpdateData() için atanmış bir prosedür ve yazılmış bir kod var ise bu kodu/kodları da inceleyerek cevap vermek daha doğru olacaktır.

Ek olarak ilgili ekranda Master/Detail bağlantı var ise ve bahsi geçen DBGrid Master veriyi gösteriyor ise Detail veriyi gösteren ikinci DBGrid nesnesinin bağlı olduğu DataSource bileşeninin de atanmış olaylarını incelemek gerekir.

[ozcank]

verdiğiniz kodu kullandım ama SetFocus dan dolayı DBGrid1 de verilerde 1 satır aşağı indiğimde Edit5 e gidiyor. DBGrid1 de herhangi bir procudure ve kod şimdilik yok.

[ertank]

DBGrid1 içinde dolaşır iken Focus yine DBGrid içinde kalsın istiyor iseniz ve belirttiğiniz gibi DBGrid olayları boş ise FormKeyDown() olayının aşağıdaki şekilde değiştirilmesi gerekli.

Kod: Tümünü seç

procedure TForm3.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  // Öğrenci Rehber
  if Key = VK_F2 then 
  begin
    GroupBox1.Visible := True;
    Edit5.SetFocus();
  end;
end;

[ozcank]

Hayır DBGrid1 de dolaşırken SetFocus Edit5 e gidiyor. Bir satır aşağı iniyorum Edit5 bir satır daha iniyorum yine Edit5 ben bunu istemiyorum.
F2 basıldığında GroupBox1 açılıyor ve Edit5 de corsur konumlanınca ad soyad yazıp aramasının sonucunu DBGrid1 de görüyor ve hangisi datayı seçmek istiyorsa DBGrid1 de onun üzerinde dolaşıyor ama SetFocus her defasında Edit5 e gidiyor buda sıkıcı bir durum.

GroupBox1 içerisinde;
Edit5 ve DBGrid1 var

[ozcank]

ertank kardeşim müsaitseniz Ammy verebilirim.

[ertank]

ertank kardeşim müsaitseniz Ammy verebilirim.

Son göndermiş olduğum kodu denediniz mi?

[ozcank]

Enson göndermiş olduğunuz kod ile hallettim ertank kardeşim çok tşk.

[ozcank]

Çözüldü