delphi4arab منتديات دلفي للعرب

نسخة كاملة : اجعل الـ Application.Title .... يعرض لي عدد الـ Items الموجوده في الـ ListView
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم

صورة للمشروع

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


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


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

أكتب بعد الإضافة / الحذف ...
كود :
Form1.Caption := ' Online Items 0 : ' + IntToStr(ListBox1.Count);
أو ضعه في إجراء إستدعه كل مرة تقوم بالتعديل

بالتوفيق