TWebBrowser 스크롤 막대의 표시 문제 연구

 
  
 

, , :

  //     
  D := FCurWebBrowser.Document as IHTMLDocument2;
  e :=d.body as IHTMLElement;
  e2 :=e as IHTMLElement2;
  cp :=e2.createControlRange as IHTMLControlRange;
  d2 :=FCurWebBrowser.Document as IHTMLDocument2;
  //       

  coll :=(d.all.tags('img') as IHTMLElementCollection);
  d2.body.style.visibility :='hidden';

모든 정보를 숨기고
그리고 모든 내용을 훑어보십시오:
for i := 0 to coll.Length - 1 do
  begin
  //      url
    elem := (coll.item(i,0) as IHTMLElement);
    //       
          elem.style.visibility :='visible';
          elem.scrollIntoView(True);
    end;
이렇게 하면 특정한 내용을 표시할 수 있지만 또 다른 문제에 부딪힐 수 있다. 바로 스크롤 바가 아직도 표시되어 있다는 것이다.짜증나.
이 문제에 대응하기 위해 페이지 불러오기가 끝난 후에 이렇게 할 수 있습니다.
procedure TMainFrm.BaiduWebBrowserDocumentComplete(ASender: TObject; const
    pDisp: IDispatch; var URL: OLEVariant);
begin
  FCurWebBrowser.OleObject.Document.Body.Scroll := 'no';
  FCurWebBrowser.OleObject.Document.Body.style.border := 'none';
  FCurWebBrowser.OleObject.Document.Body.Style.margin := '0px';
end;

이렇게 하면 스크롤 바를 사라지게 할 수 있다.근데 사라지는 속도가 너무 느려요.과정도 보이고.우울하다
여러분, 좋은 방법이 있나요?

좋은 웹페이지 즐겨찾기