如題 請大家幫忙!

您好, 參考以下兩篇討論看看: http://delphi.ktop.com.tw/topic.php?topic_id=27118 http://delphi.ktop.com.tw/topic.php?topic_id=35611 -- hagar.

版主您好: 感謝快速回答! 第一篇文章我已看過,就是不知如何傳入frame指令,可否舉例? 我的程式如下:frame 指令那些文字入何寫入? =================================== var w1,w2,w3,w4:olevariant; s:string; begin s:='c:\pic\home.htm'; webbrowser1.navigate(s,w1,w2,w3,w4); sleep(3000); end;

procedure TForm1.Button1Click(Sender: TObject);
var
  I: integer;
begin
  for I := 0 to (WebBrowser1.OleObject.Document.Frames.Length - 1) do
    WebBrowser1.OleObject.Document.Frames.Item(I).Document.Body.Style.OverflowY := 'hidden';
end;

您好: 怪哉,我如下作,仍無效. 我用delphi 6 os: xp professional webbrowser1.navigate(s,w1,w2,w3,w4); for I := 0 to (WebBrowser1.OleObject.Document.Frames.Length - 1) do WebBrowser1.OleObject.Document.Frames.Item (I).Document.Body.Style.Overflowx := 'hidden';

1.瀏覽器應該不能更動網頁的內容, 所以不能寫入 2.c:\pic\home.htm 這個網頁是有 Frame 的嗎？確認 for 迴圈有被執行到 -- hagar.

引言: 您好: 怪哉,我如下作,仍無效. 我用delphi 6 os: xp professional webbrowser1.navigate(s,w1,w2,w3,w4); for I := 0 to (WebBrowser1.OleObject.Document.Frames.Length - 1) do WebBrowser1.OleObject.Document.Frames.Item (I).Document.Body.Style.Overflowx := 'hidden';

無意插花！我試過完全可以運作。 只要是 Frames 底下均為同一網域就可以了。 你會無效的原因， 可能在下載尚未完成，就執行該行。 分開執行吧！.........

hager 版主您好 確實發現home.htm 沒有frame 所以 for的迴圈根本沒執行. 那請問若沒有frame的網頁其捲軸要如何去除?

您好, 在 TWebBroswer 的 DocumentComplete 事件中做如下的動作:

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  WebBrowser1.OleObject.Document.Body.Style.OverflowX := 'hidden';
  WebBrowser1.OleObject.Document.Body.Style.OverflowY := 'hidden';
end;

不過如果 TWebBroswer 是依 http://www.euromind.com/iedelphi/ 這裡 做過替換的, 上述程式是不會動作的. -- hagar.

感謝hager回答 問題已解決 謝謝!

您好：
我照此方式使用

WB.OleObject.Document.Body.Style.OverflowX := 'hidden';
WB.OleObject.Document.Body.Style.OverflowY := 'hidden';

並不能讓捲軸不見，
請問要怎麼做呢？
謝謝您的幫忙啊！