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

الصفحات : 1 2 3

السلام عليكم

عضو جديد معاكم Big Grin

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

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

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

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

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

شكرا لك

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

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

PHP كود :
استخدم
memo1.Lines[x]
Listbox1.Items[x] 

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

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

PHP كود :
:= 0; 

i بالطبع Integer

PHP كود :
ListBox1.Items.Strings[i] 

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

و أخيرا

PHP كود :
i:=i+1; 

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

كود :
Memo.Lines.Add(string);
ListBox.Items.Add(string);

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

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

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

إقتباس :لكن أعتقد أن لا أحد فهم قصدي

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

شوف 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;

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

الصفحات : 1 2 3

Go-Now

King SofT

Go-Now

shagrouni

Go-Now

Agmcz

Go-Now

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

Go-Now

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