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