الذهاب الى السطر الموالي

[Go-Now]

السلام عليكم

عضو جديد معاكم
كنت استعمل الفيجوال لكن :p تتعب نفسك راح نجرب هاي المرة الدالفي و ربي فيها خير
المهم عندي استفسار: كيفية الانتقال الى السطر الموالي في Memo1 و ListBox

علما اني سأستعمل 2
واحد فيه المجلدات و الثاني الملفات
يعني مثلا يدخل المجلد الأول يفحص كل الملفات ثم يذهب الى المجلد الثاني يفحص نفس الملفات اللي فحصها في المجلد الأول و هكذا
أعتقد تدخل فيها التايمر و الله اعلم
في انتظار اقتراحاتكم و أفكاركم
و شكرا لكم على هذا الصرح العظيم

[King SofT]

وعليكم السلام اخي


لما لا تستخدم ادوات جاهزم لذالك الغرض
DirectoryListBox
FileListBox
DriveComboBox

شاهد المرفقات

[Go-Now]

شكرا لك

لكن ماذا لو فكرت في برنامج تشغيل الاغاني ^_^

كيف سأنتقل من السطر الأول الى السطر الثاني (الأغنية الأولى الى الاغنية الثانية)

[shagrouni]

PHP كود :

استخدم
memo1.Lines[x]
Listbox1.Items[x] 


[Go-Now]

انتقال تلقائي لوحده يعني أنا أفتح البرنامج و هو ينتقل من سطر الى سطر لوحده

شوف ماذا جربت و لم يفلح

PHP كود :

:= 0; 


i بالطبع Integer

PHP كود :

ListBox1.Items.Strings[i] 


ثم بعض الخربشات

و أخيرا

PHP كود :

i:=i+1; 


[Agmcz]

السلام عليكم
ادا كنت ستضيف شيئا
يكفي استعمال

كود :

Memo.Lines.Add(string); ListBox.Items.Add(string);

[Go-Now]

شكرا لكم جميعا لكن أعتقد أن لا أحد فهم قصدي

انا بحثت في المنتدى وجدت هذا لكن لم يفدني كثيرا

http://www.delphi4arab.net/forum/showthr...p?tid=6673

[محمد عبد العزيز]

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

يدخل المجلد الأول يفحص كل الملفات ثم يذهب الى المجلد الثاني يفحص نفس الملفات اللي فحصها في المجلد الأول و هكذا

راجع كل من
http://www.delphi4arab.net/forum/showthr...p?tid=1386
http://www.delphi4arab.net/forum/showthr...p?tid=2054

لكن أعتقد أن لا أحد فهم قصدي

ان اعتقدت ذلك فأوضح أكثر بمثال او ارفق محاولة...

[Go-Now]

شوف ListBox1

فيها كلمات، الأولى delphi
الثانية 4
الثالثة arab
كيف انتقل من الكلمة الاولى الى الاخيرة مرورا مع الثانية

[محمد عبد العزيز]

على اي اساس يتم الانتقال أو متى ؟
كل ثانية ؟ ضف مكون 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;

مرفق مثالين على السريع