Parent ve Keydown, Keypress

[serbek_tr]

S.A. Arkadaşlar;
Şöyle bir sorunum var. Formu normal yollardan show etmek yerine

Kod: Tümünü seç

Application.CreateForm(TForm2,Form2);
      Form2.Parent :=Panel1;//Bu panel1 form1 üzerinde standart bir tpanel
Form2.show;

bu şekilde form create edilince form2 de keydown, keypress olayları gerçekleşmiyor yani delete tuşuna basacağım ve

Kod: Tümünü seç

procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_DELETE then delete.....;
end;

gibi bir kod bloğunun işlemesi lazım ama bu kod bloğuna hiç girmiyor. Gördüğüm kadarı ile parent vererek oluşturulan bir form belirtilen parant nesnesi içinde oluşuyor ama hiç bir zaman form aktif olarak görünmüyor ve dolayısı ile baılan tuşu o form için alğılamıyor.

çözüm öenerebilecek arkadaşlara şimdiden teşekkür ederim.

[aslangeri]

s.a.
form2 yi create ettiğiniz yerde
form1 in keydown eventine form2nin keydownmetodunu atayın.
muhtemelen form1in keypreviewi true olduğu için ve diğer formların parentide form1 e dayandığı için onun keydown olayı çalışıyordur.
kolay gelsin.

[serbek_tr]

Yardımın için teşekkür ederim. Evet form1 in keydown olayı çalışıyor ama malesefki form2 üzerindeki kontrollerin çalışmıyor. Şöyle birşey mümkün ama pek sağlıklı değil form1 üzerinde keydown olayı gerçekleştimi değerleri form2 üzerindeki kontrollerin keydown olaylarına yönlendirmek ama buda bir tek kontrol değil bir çok kontrol için keydown var.

[aslangeri]

s.a.
eğer formun keypreview özelliğini true yaprsan hangi bileşende olursa olsun key eventları öncelikler form için çalışır.
formun keypreview eventinde aktivecontrol nesnesi ile seçili bileşenin hangi bileşen olduğunu kontrol edip ona göre işlemlerini yaptırabilrisin.
Böylelikle key eventlarını tek merkezde toplamış olursun ve yönetmen kolay olur.
kolay gelsin.

[serbek_tr]

Teşekkür ederim, Dediğin şekilde yaptım