DBGrid üzerindeki kayıt silindiğinde cursor sabit kalsın

[Embarcadero]

Gönderdiğiniz kodları aşağıdaki şekilde giriş formuma ekledim sorunsuz çalıştı. frmAna.BringToFront; komutunu proje dosyasına ekledim yine bir farklılık göremedim. MainForm'unuz arkaya kaçıyor derken ne demek istediniz anlamadım; ama ne olur ne olmaz frmAna.BringToFront; komutunu proje dosyasında bıraktım.

Kod: Tümünü seç

private
procedure CreateParams(var Params: TCreateParams); override;
{ Private declarations }

procedure TfrmGiris.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle and not WS_EX_TOOLWINDOW or WS_EX_APPWINDOW;
end;

[mrmarman]

Sorunsuz çalıştıysa olay tamamdır.

Belki de formu maximized yaptınız da sorun yaşamadınız kim bilir... Önemli olan sonuç...

[Embarcadero]

Hocam tekrar teşekkür ediyorum. İmza resminizdeki galiba oğlunuz Allah onu size bağışlasın.

[mrmarman]

Teşekkürler, eksik olma.
- Artık (8) yaşında delikanlı oldu.

Çalışmalarında başarılar...

[Embarcadero]

Muharrem Hocam merhaba,

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.

Kod: Tümünü seç

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

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

Proje dosyası:

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.

[mrmarman]

Farklı soruları aynı konu başlığı altında sormayı bırakalım lütfen. Daha önce de uyarmıştım chat yapmıyoruz.

Başlığı seçerken de konuyu ifadr eden, çözümleri sunarken aranabilir de olmasına gayret ediniz.

[Embarcadero]

Örneğiniz üzerinden gittiğim için tekrar bu başlaık altında sorma ihtiyacı duydum. Çok haklısınız. Özür dilerim bir daha olmayacak inşaallah selam ve sevgilerimle...