+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : الذهاب الى السطر الموالي (/showthread.php?tid=4197)
الذهاب الى السطر الموالي - Go-Now - 15-05-2012
السلام عليكم
عضو جديد معاكم
كنت استعمل الفيجوال لكن :p تتعب نفسك راح نجرب هاي المرة الدالفي و ربي فيها خير
المهم عندي استفسار: كيفية الانتقال الى السطر الموالي في Memo1 و ListBox
علما اني سأستعمل 2
واحد فيه المجلدات و الثاني الملفات
يعني مثلا يدخل المجلد الأول يفحص كل الملفات ثم يذهب الى المجلد الثاني يفحص نفس الملفات اللي فحصها في المجلد الأول و هكذا
أعتقد تدخل فيها التايمر و الله اعلم
في انتظار اقتراحاتكم و أفكاركم
و شكرا لكم على هذا الصرح العظيم
الذهاب الى السطر الموالي - King SofT - 15-05-2012
وعليكم السلام اخي
لما لا تستخدم ادوات جاهزم لذالك الغرض
DirectoryListBox
FileListBox
DriveComboBox
شاهد المرفقات
الذهاب الى السطر الموالي - Go-Now - 16-05-2012
شكرا لك
لكن ماذا لو فكرت في برنامج تشغيل الاغاني ^_^
كيف سأنتقل من السطر الأول الى السطر الثاني (الأغنية الأولى الى الاغنية الثانية)
الذهاب الى السطر الموالي - shagrouni - 16-05-2012
PHP كود :
استخدم
memo1.Lines[x]
Listbox1.Items[x]
الذهاب الى السطر الموالي - Go-Now - 16-05-2012
انتقال تلقائي لوحده يعني أنا أفتح البرنامج و هو ينتقل من سطر الى سطر لوحده
شوف ماذا جربت و لم يفلح
PHP كود :
:= 0;
PHP كود :
ListBox1.Items.Strings[i]
ثم بعض الخربشات
و أخيرا
PHP كود :
i:=i+1;
الذهاب الى السطر الموالي - Agmcz - 16-05-2012
السلام عليكم
ادا كنت ستضيف شيئا
يكفي استعمال
كود :
Memo.Lines.Add(string);
ListBox.Items.Add(string);الذهاب الى السطر الموالي - Go-Now - 16-05-2012
شكرا لكم جميعا لكن أعتقد أن لا أحد فهم قصدي
انا بحثت في المنتدى وجدت هذا لكن لم يفدني كثيرا
http://www.delphi4arab.net/forum/showthread.php?tid=6673
الذهاب الى السطر الموالي - محمد عبد العزيز - 17-05-2012
السلام عليكم ورحمة الله
إقتباس :يدخل المجلد الأول يفحص كل الملفات ثم يذهب الى المجلد الثاني يفحص نفس الملفات اللي فحصها في المجلد الأول و هكذاراجع كل من
http://www.delphi4arab.net/forum/showthread.php?tid=1386
http://www.delphi4arab.net/forum/showthread.php?tid=2054
إقتباس :لكن أعتقد أن لا أحد فهم قصديان اعتقدت ذلك فأوضح أكثر بمثال او ارفق محاولة...
الذهاب الى السطر الموالي - Go-Now - 17-05-2012
شوف ListBox1
فيها كلمات، الأولى delphi
الثانية 4
الثالثة arab
كيف انتقل من الكلمة الاولى الى الاخيرة مرورا مع الثانية
الذهاب الى السطر الموالي - محمد عبد العزيز - 17-05-2012
على اي اساس يتم الانتقال أو متى ؟
كل ثانية ؟ ضف مكون Timer وانقر عليه مرتين واكتب ما يلي
كود :
if ListBox1.Items.Count=0 then Exit;
if ListBox1.ItemIndex=-1 then ListBox1.ItemIndex:=0;
if ListBox1.ItemIndex<ListBox1.Items.Count-1 then ListBox1.ItemIndex:=ListBox1.ItemIndex+1 else
ListBox1.ItemIndex:=0;