+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يتم اخفاء شريط webbrowser الجانبي (/showthread.php?tid=5467)
كيف يتم اخفاء شريط webbrowser الجانبي - المحجوب - 15-08-2013
السلام عليكم
لدي webbrowser في برنامجي لكن لا ارغب في اظهار الشريط الجانبي
كيف اقم بأخفاء هذه الشريط
شاااكرين
كيف يتم اخفاء شريط webbrowser الجانبي - SMP3 - 15-08-2013
ممكن تضع لنا صورة للتوضيح ؟
كيف يتم اخفاء شريط webbrowser الجانبي - المحجوب - 16-08-2013
اقصد شريط التمرير للمستعرض
كود :
http://m7-job.com/mysfu/uploads/f13ad99.pngكيف يتم اخفاء شريط webbrowser الجانبي - Anew - 16-08-2013
web1.ScrollBy(-15,15);
بتوفيق
كيف يتم اخفاء شريط webbrowser الجانبي - المحجوب - 17-08-2013
PHP كود :
web1.ScrollBy(-15,15);
لم يخفية للأسف ما زال ظاهراً
جرب انت وانظر ماذا يفعل
ليس هو المطلوب
كيف يتم اخفاء شريط webbrowser الجانبي - Najy Ibraheem - 17-08-2013
السلام عليكم...
من المفترض أن يتم الأمر بالسطرين التاليين (في الحدث OnDocumentComplete للمكون TWebBrowser أو حدث النقر على زر مثلاً - بعد تحميل المستند في الـ WebBrowser):
كود :
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
if Assigned(WebBrowser1.Document) then
WebBrowser1.OleObject.Document.Body.Style.overflowY := 'hidden'; // لم تعمل
end;لكن ذلك لا يقوم بالأمر المطلوب (لا يعطي خطأ) لهذا ننجز الأمر عبر استعمال الـ Interfaces و الـ Type Casting. في هذه الحالة يجب إضافة الوحدة MSHTML إلى جملة uses:
كود :
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);
var
htmlDoc: IHTMLDocument2;
htmlBody: IHTMLBodyElement;
begin
if Assigned(WebBrowser1.Document) then begin
htmlDoc := WebBrowser1.Document as IHTMLDocument2;
htmlBody := htmlDoc.body as IHTMLBodyElement;
htmlBody.scroll := 'no';
end;
end;نرجو الاستفادة و السلام.