بسم الله الرحمن الرحيم شرحنا بالدرس السابق طريقة فتح موقع نحن نحدده باستخدام دالةShellExcute .ودرسنا اليوم عن طريقة استخدام اداة WebBrowser ....... كل ماعليك هو بدء مشروع جديد وادراج 6 ازرار وواحد Edit.Texe ... ثم ادراج اداة WebBrowser وطريقة ادراجها كمابالصورة التالية :: الذهاب الي قائمة Internet والبحث عن الاداة كما هي موضحه بالصورة السابقة وبعد ان ندرجها سيصبح شكل المشروع كالتالي من ازرار وتكست والاداة .. وسنضع الاسم الافتراضي في Name فقط نغير الاسماء من Caption وبعدها يبقى لنا فقط كتابة الاكواد في كل زر .. ولن نحتاج الي اضافة اي اضافة في قسم Uses كما بالدرس السابق فاسماء الوحدات تكون مضافة تلقائيا .... يبقى لدينا كتابة الشيفرة الخاصة بالبرنامج وكل ما نحتاجه من اكواد فقط في الازرار كما الصورة التالية : ويبقى لنا زر موقع العاصفة وشيفرته تختلف فهنا وضعنا اسم الموقع مباشرة باستخدام دالة Navigate كما الصورة التالية : وهنا وصلنا الي نهاية الشيفرة ونجرب البرنامج عن طريق Run او F9 .الصورة التالية توضح نجاح البرنامج الحمد لله نجحنا .. نكتب اي موقع في التكست ثم فتح الموقع ونرى النتيجة ... هذا برنامج مبسط بامكانك تطويره بلغة الدلفي ليصبح كما Internet Explorar اتمنى لكم تطبيقا ممتعا
قوانين المنتدى