Konuyu Oyla:
  • Derecelendirme: 3.5/5 - 2 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Değişikliği algılama
#1
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
Hayat bazen güzel olabiliyor.
Cevapla
#2
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.
Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
WWW
Cevapla
#3
(19-12-2016, Saat: 10:42)Dostk Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.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;
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Delphide ses format değişikliği mehmetgun 1 118 23-09-2019, Saat: 13:13
Son Yorum: hi_selamlar
  Com port otomatik algilama barox 3 225 02-08-2019, Saat: 09:57
Son Yorum: frmman



Konuyu Okuyanlar: 1 Ziyaretçi