Değişikliği algılama

[Dostk]

Selam;
Listview yeni kayıt girişi veya kayıt silindiğinde kullanıcı forumdan çıkmamdan önce kaydetmesi için uyarı verdiriyorum;
Fakat herhangi bir hücrede değişiklik yapıldığını bir türlü yakalayamadım değişikliği nasıl yakalayabilirim?

Silindiğinde

procedure TForm1.ListviewDeletion(Sender: TObject; Item: TListItem);
begin
  Save := 'Evet';
end;

Kayıt girişi yapıldığında

procedure TForm1.ListviewInsert(Sender: TObject; Item: TListItem);
begin
  Save := 'Evet';
end;

Çıkış yaptığında uyarı

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if (Listview.Items.Count > 0) and (Pos(Save, 'Evet') > 0) then
  begin
    AlertMesaj('Değişikliği kaydediniz...     ', 3);
  end
  else
  begin

[yhackup]

Ben olsam kolaya kaçardım,
listview elemanlarını, açıldığında bir stringliste atarım, çıkarken döngü ile karşılaştırırım.

[TescilsizUzman]

(19-12-2016, Saat: 10:42)Dostk Adlı Kullanıcıdan Alıntı: Selam;
Listview yeni kayıt girişi veya kayıt silindiğinde kullanıcı forumdan çıkmamdan önce kaydetmesi için uyarı verdiriyorum;
Fakat herhangi bir hücrede değişiklik yapıldığını bir türlü yakalayamadım değişikliği nasıl yakalayabilirim?

Silindiğinde

procedure TForm1.ListviewDeletion(Sender: TObject; Item: TListItem);
begin
  Save := 'Evet';
end;

Kayıt girişi yapıldığında

procedure TForm1.ListviewInsert(Sender: TObject; Item: TListItem);
begin
  Save := 'Evet';
end;

Çıkış yaptığında uyarı

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if (Listview.Items.Count > 0) and (Pos(Save, 'Evet') > 0) then
  begin
    AlertMesaj('Değişikliği kaydediniz...     ', 3);
  end
  else
  begin

Merhaba,
Bunlara ilaveten OnEdited olayını da kullanmalısınız. Çünkü değişim; Silme, ekleme ve düzenleme olduğunda çalışması gereken bir metoddur.

procedure TForm1.ListView1Edited(Sender: TObject; Item: TListItem;
 var S: string);
begin
 Save := 'Evet';
end;