اجعل الـ Application.Title .... يعرض لي عدد الـ Items الموجوده في الـ ListView - نسخة قابلة للطباعة

اجعل الـ Application.Title .... يعرض لي عدد الـ Items الموجوده في الـ ListView - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : اجعل الـ Application.Title .... يعرض لي عدد الـ Items الموجوده في الـ ListView (/showthread.php?tid=3723)

اجعل الـ Application.Title .... يعرض لي عدد الـ Items الموجوده في الـ ListView - destroy - 25-12-2011

السلام عليكم

صورة للمشروع

كود :
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;

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

اجعل الـ Application.Title .... يعرض لي عدد الـ Items الموجوده في الـ ListView - Lam.Abdeldjalil - 25-12-2011

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

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

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

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

بالتوفيق