الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

question

مغلق
بدأه delphi team في 26 أبريل 2005 · 1 رد · 446 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

مرحبا ياشباب كيفيكمممممممم !!!

عندي سؤال سخيف جداً ارجو المعذرة من المشرف

اريد عمل ميديا بيلر تستطيع ان تشغل فيديو ولكن المشكل اني اريد اختيار اكثر من ملف ومن ثم يختار المستخدم اي

من الملفات التي يريد ان يشغلها وان يبدل بينها كماما في الميديابلير العادي ساويت الMultiseclect بس ما مشي الحال !!

فالي عندو المثال جاهز فليضعه في مكتبة الأكواد مشكوراً

وطلب الاخير هو مثال كامل عن استخدام الDLL (استاذي عروة زرت المواضع بالاضافة غلى موقعك ولكن اريد مثال غني شوي

لأنو صاير صاحبك مصيف هل كم يوم ههاهاهاهاه)

أخوكم

When You Started With Delphi ...You Could Not Stop!

delphiteam2.jpg

alharmoodiGropu.com

#2

بالنسبة للسؤال الأول إستخدم ال OpenDialog واذهب الى خصائصها ومن ثم افتح خاصية Options واجعل ال AllowMultiSelect = True

ومن ثم إعمل جملة تكرار حتى تضيف جميع الملفات المختارة إلى ListBox مثلا

var
  I : Integer;
begin
  OpenDialog1.Options := OpenDialog1.Options + [ofAllowMultiSelect];

  if OpenDialog1.Execute then
    for I := 0 to OpenDialog1.Files.Count -1 do
      ListBox1.Items.Add(OpenDialog1.Files)

end;

واكتب حدث في ال ListBox مثلا عند Click أو DoubleClick ان يتم تشغيل الملف الذي تم إختياره، وعند الإنتهاء منه يذهب للملف الذي بعده وهكذا

بالنسبة لموضوع ال DLL هل هناك شيء معين تريد معرفته؟، الفكرة بسيطة اذا استطعت عمل مكتبة صغيرة يمكنك توسيعها لتصبح كبيرة والفكرة واحدة

لا تحزن:

إن كنت فقيرا فغيرك محبوس في دين، وإن كنت لا تملك وسيلة نقل فسواك مبتور القدمين، وان كنت تشكوا من آلام فغيرك يرقدون على الاسرة البيضاء و من سنوات، وان فقدت ولدا فغيرك فقد عددا من الأولاد و في حادث واحد.

لا تحزن:

فأنت تشرب الماء الزلال، و تستنشق الهواء الطلق، و تمشي على قدميك معافى، و تنام ليلك آمنا.

هذا الموضوع مغلق.

مواضيع مشابهة