15-08-2013, 11:26 AM
15-08-2013, 02:17 PM
ممكن تضع لنا صورة للتوضيح ؟
16-08-2013, 03:15 AM
اقصد شريط التمرير للمستعرض
كود :
http://m7-job.com/mysfu/uploads/f13ad99.png16-08-2013, 02:42 PM
web1.ScrollBy(-15,15);
بتوفيق
بتوفيق
17-08-2013, 02:00 AM
PHP كود :
web1.ScrollBy(-15,15);
لم يخفية للأسف ما زال ظاهراً
جرب انت وانظر ماذا يفعل
ليس هو المطلوب
17-08-2013, 01:17 PM
السلام عليكم...
من المفترض أن يتم الأمر بالسطرين التاليين (في الحدث OnDocumentComplete للمكون TWebBrowser أو حدث النقر على زر مثلاً - بعد تحميل المستند في الـ WebBrowser):
لكن ذلك لا يقوم بالأمر المطلوب (لا يعطي خطأ) لهذا ننجز الأمر عبر استعمال الـ Interfaces و الـ Type Casting. في هذه الحالة يجب إضافة الوحدة MSHTML إلى جملة uses:
نرجو الاستفادة و السلام.
من المفترض أن يتم الأمر بالسطرين التاليين (في الحدث 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;نرجو الاستفادة و السلام.