kayıt silme uyarısı

[must_sargin]

iyi çalışmalar,
tablodan kayıt silerken Delete Record uyarısı veriyor. acaba bu uyarıyı değiştirip "Kayıt Silinecek" uyarısı verdirebilir miyim?

[mrmarman]

- Table'in Before Delete olayına girip MessageDlg ile kendi mesını yaz... Abort ile procedure'u iptal edebilirsin...

Kod: Tümünü seç

  If MessageDlg('Silmek istediğinize emin misiniz ?', mtWarning, [mbOk, mbCancel],0) = mrCancel then
  begin
    ShowMessage('Silme işlemi iptal edildi...');
    Abort;
  end;

[must_sargin]

iyi çalışmalar,
kodu yazdım dediğiniz gibi uyarıyı verdi ama Delete Record uyarısınıda verdi. o ingilizce hatayı göstermemesini nasıl sağlarım?

[mrmarman]

- Tablodan kayıt silerken DBGrid'i kullandığınızı söyleseydiniz vakit kaybı olmazdı...

Kod: Tümünü seç

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  If ( Key = VK_Delete) and (ssCtrl in Shift)then
  begin
    ShowMessage('Ctrl+Delete basıldı istek geri çevrildi...');
    key := $0;
  end;
end;

[must_sargin]

iyi çalışmalar,
kayıt silerken dbgrid'i kullanmıyorum dbeditler ve dbnavigator kullanıyorum, dbnavigator'de sil'e bastığımda çıkan mesajı söylemiştim.

[Arifceylan28]

Dbnavigator kullanmaz da normal button kullanırsanız bu uyarıyı varmez.Eğer ille de kullanacağım diyorsanız bununla ilgili derya hanımın bi makalesi vardı sanırım.

[lazio]

DBNavigator un ConfirmDelete ini False yap

[must_sargin]

normal buton kullandım olaya : table1.delete; girdmi ilk olarak mrmcop hocamızın söylediği uyarı geliyor kaydı sil dediğimde ardından delete record uyarısını alıyorum.

[lazio]

daha sonrada @mrmcop un ilk mesajındaki ni uygulayarak istediğin mesajı verdirebilirsin.

[mrmarman]

Haaa desenize....

- ConfirmDelete 'i False yaparsanız silme işlemine mesaj vermeksizin izin verniş olursunuz...

- Bu sayede ilk söylediğim Table'in beforedelete olayına takılmasına izin vermiş, dolayısıyla kendi mesajınızı verdirmiş olursunuz...

[mrmarman]

@lazio zamanlama...

[must_sargin]

sadece mrmcop hocamızın dediği uyarıyı nasıl alabilirim

[Arifceylan28]

Ben de navigatorun kaynak kodlarına bakıyorum o Mesaj nasıl kaldırılır diye.
Confirm delete özelliğini false yap ve Mrmcopun yazdığı kodu before delete olayına ekle.Sadece o mesaj gelecektir.

[must_sargin]

herkese teşekkürler, çoktandır uğraşıyordum bununla.

[sadettinpolat]

başka bir çözümde dbconst.pas dosyasındaji mesajı türkçeye çevirmektir.
dosyayı delphi dizini altındaki source klasöründe bulabilirsiniz. değişiklik yaptıktan sonra dosyayı lib klasörüne kopyalayın..