اجعل الـ Application.Title .... يعرض لي عدد الـ Items الموجوده في الـ ListView

[destroy]

السلام عليكم

صورة للمشروع

كود :

http://www.anageed.com/upload//uploads/images/anageed-1b170e34d6.jpg

حاولت ان اجعل الـ Application.Title يعرض لي اليا عدد Items
الموجوده ListView

كود :

var i,countlist:Integer; begin if ListView1.Selected<> nil then begin countlist:=0; for i:=0 to ListView1.Items.Count-1 do countlist:=countlist+1; FormPrincipal.Caption := ' Online Items 0 : ' + IntToStr(countlist); end;

المشكله ان الابلكيشن لايتغير مباشرة عند اضافة ايتمز جديد ؟
ممكن مساعده

[Lam.Abdeldjalil]

و عليكم السلام و رحمة الله

أكتب بعد الإضافة / الحذف ...

كود :

Form1.Caption := ' Online Items 0 : ' + IntToStr(ListBox1.Count);

أو ضعه في إجراء إستدعه كل مرة تقوم بالتعديل

بالتوفيق