Delphi » Gotowce

Ukrywanie scrollbars w WebBrowser worked!

KFP

Twój TWebBrowser powinien mieć nazwę "wbOnline", dlaczego tak ?
bo taka mi się podobała :)

Do rzeczy, klikamy na wbOnline, następnie w Object Inspectorze
na zakładka "Events" i dwukrotnie klikamy w "OnDocumentComplete"

następnie wklejamy ten kodzik:

 with wbOnline do
  begin
   OleObject.Document.Body.Style.OverflowX := 'hidden';
   OleObject.Document.Body.Style.OverflowY := 'hidden';
 end;

i kompilujemy :) wszystko powinno wyglądać następująco

 procedure TFProgram.wbOnlineDocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
 begin
  with wbOnline do
   begin
    OleObject.Document.Body.Style.OverflowX := 'hidden';
    OleObject.Document.Body.Style.OverflowY := 'hidden';
   end;
 end;

prawda że proste.. ?

Gotowce

3 komentarzy

Ukrywanie scrollbars w WebBrowser worked! - naucz sie angielskiego

Przecież już było w gotowcach o ukrywaniu nawet o zmienianiu kolrów scrollbara...
a po 2 to nie działa! - tzn działa jak jest niby onliene ale jak robie
wbonline.oleobject.document.write('<img src="C:\szajs.gif');
to sa scrollbary wiec nie wiem po co mi to

< delphi > i </ delphi > !! !!