Insert ve Silme yakalama

[ahmetb]

Merhaba;

ListView de değişiklik olduğunda delete veya insert gibi bu durumları "showmessage" ile yakalamak istiyorum.
Fakat hiçbir şekilde tepki alamadım, ListView kayıt sildiğim de bunu nasıl yakalayabilirim?

procedure TForm1.ListView1DeleteItem(Sender: TObject; AIndex: Integer);
begin
  showmessage('silindi');
end;

procedure TForm1.ListView1DeletingItem(Sender: TObject; AIndex: Integer; var ACanDelete: Boolean);
begin
   showmessage('silindi');
end;

[ahmetb]

Konu güncel. 

[shooterman]

selamlar

procedure TForm1.ListView1KeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
listview1.DeleteSelected;
showmessage('kayıt silindi');
end;

end.

[ahmetb]

(17-04-2019, Saat: 14:08)wiseman Adlı Kullanıcıdan Alıntı: selamlar

procedure TForm1.ListView1KeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
listview1.DeleteSelected;
showmessage('kayıt silindi');
end;

end.

Merhaba;

Sanırım soruyu yanlış anladınız, ListView1KeyDown delete ve insert ile ilgisi ne?

[shooterman]

(18-04-2019, Saat: 16:14)ahmetb Adlı Kullanıcıdan Alıntı:

(17-04-2019, Saat: 14:08)wiseman Adlı Kullanıcıdan Alıntı: selamlar

procedure TForm1.ListView1KeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
listview1.DeleteSelected;
showmessage('kayıt silindi');
end;

end.

Merhaba;

Sanırım soruyu yanlış anladınız, ListView1KeyDown delete ve insert ile ilgisi ne?

Yanlış anlamış olabilirim. Ancak, listview den bir kaydın silinmesi işleminin yapılması için, delete komutunun olması gerekiyor. (Database den sürekli veri okunmayacaksa tabiki) Ben delete işlemi yapıldığında, bu şekilde uyarı verdirdiğim için, size de aynı kodu yazdım.