دخول

المحجوب · 15-08-2013, 11:26 AM

السلام عليكم

لدي webbrowser في برنامجي لكن لا ارغب في اظهار الشريط الجانبي
كيف اقم بأخفاء هذه الشريط

شاااكرين

SMP3 · 15-08-2013, 02:17 PM

ممكن تضع لنا صورة للتوضيح ؟

المحجوب · 16-08-2013, 03:15 AM

اقصد شريط التمرير للمستعرض

كود :
http://m7-job.com/mysfu/uploads/f13ad99.png

Anew · 16-08-2013, 02:42 PM

web1.ScrollBy(-15,15);

بتوفيق

المحجوب · 17-08-2013, 02:00 AM

PHP كود :
web1.ScrollBy(-15,15); 

لم يخفية للأسف ما زال ظاهراً
جرب انت وانظر ماذا يفعل
ليس هو المطلوب

Najy Ibraheem · 17-08-2013, 01:17 PM

السلام عليكم...

من المفترض أن يتم الأمر بالسطرين التاليين (في الحدث 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;

نرجو الاستفادة و السلام.

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة