Re: Aktif bir form kontrolüne odaklanamıyorum [Çözüldü]

[Embarcadero]

Arkadaşlar merhaba,

Proje dosyası kodlarım bu şekilde

Kod: Tümünü seç

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  TStyleManager.TrySetStyle('Iceberg Classico');
  Application.CreateForm(TfrmAna, frmAna);
  frmAna.Enabled:=False; // Yeni eklendi
  Application.CreateForm(TfrmGiris, frmGiris);

  if frmGiris.ShowModal = mrOk then begin
    frmGiris.Close;
    frmAna.Enabled:=True; // Yeni eklendi
    Application.ProcessMessages;
    Application.Run;
  end else begin
    Application.Terminate;
  end;
end.

Ana formda bulunan bazı kısayollar giriş formunda da çalışıyor bunu engellemek için proje dosyasında belirttiğim bir kaç kod ekledim kısayollar çalışmıyor artık; ama bu sefer giriş formundaki edit tab order 0 olmasına rağmen odaklanmıyor.

Giriş formunun onShow olayına aşağıdaki kodu ekledim bu sefer de edit sanki readonly true gibi davranıyor edite birşey yazamıyorum. Bu sorunu nasıl halledebiliriz? Yardımcı olursanız sevinirim.

Kod: Tümünü seç

edtSifre.SetFocus;
PostMessage(edtSifre.handle,WM_SETFOCUS,0,0);

[freeman35]

taborder tab tuşu ile dolaşılacağındaki sırayı belirler, 0 olan ilk olacak diye bir kavram yok. ya formun activecontrol event ine istediğin kontrolü ekle, yada onshow event ine "activecontrol := edtSifre;" ekle.
if frmGiris.ShowModal = mrOk then begin
frmGiris.Close; --> ShowModal kullanarak açtığın formun kapanmadan bu satıra geçmesi zor, gereksiz bir kod.
frmAna.Enabled:=True; -->ShowModal kullanarak açtığın formun haricinde bir formu aktif edemezsin, kullanıcı modal ı kapatmadan applicationda başka forma erişemez.
Kolay gele

[Embarcadero]

freeman35 cevabın için teşekkür ederim; söylediklerini bir bir yaptım; ama yine odaklanmadı.

Sorunu aşağıdaki linkten halletim. Umarım bir başkası da faydalanır. Selam ve dua ile...

http://delphi.about.com/od/windowsshell ... _login.htm