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

نسخة كاملة : تحويل الكلمة تلقائياً من 'Google' الى 'Google.com' في WebBrowser
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلآم عليكم ورحمة الله وبركاته...

في حال اضافة النص الى ويب بروزر مثلا في ارسال 'Google' يقوم بتحويل الكلمة تلقائياً الى 'Google.com' ?
بمعنى اخر M_Mori2010 : google هكذا ارسلتها
فيقوم بالتعديل الى : M_Mori2010 : google.com
وجزاكم الله كل خير
وعليكم السلام اخي


نفرض ان عنوان الموقع موجود في Edit1
كود :
if Pos('.com',Edit1.Text)=0 then Edit1.Text:=Edit1.Text+'.com' ; WebBrowser1.Navigate(Edit1.Text);

بالتوفيق