各位大大好? 常有網頁設計者將網頁展示後在最底端放置相關的button。 因其網頁通常很長以至於常常要用webbrowser 的捲軸拉至最底端，才能按到button，請問webbrowser 可否設計成載入完成後自動拉到最底端?

Hi sbt,    這篇文章你參考看看    ...scroll TWebBrowser with own buttons?  http://www.swissdelphicenter.ch/en/showcode.php?id=1186 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

我如下寫:結果不行, 可否舉例? var w1,w2,w3,w4:olevariant; s:string; begin s:='http://tw.yahoo.com'; webbrowser1.navigate(s,w1,w2,w3,w4); sleep(5000); WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(0, 100);

Hi sbt,    會有錯誤應該是 WebBrowser 尚未完成，建議宣告一個全域變數，於 Load Document 前先行初始化，於 WebBrowser 的 OnDonloadComplete 更改其值已作判定

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw;    type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure WebBrowser1DownloadComplete(Sender: TObject);
  private
    { Private declarations }
    webComplete : Boolean;
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject);
begin
  webComplete := False;
  webbrowser1.Navigate('http://tw.yahoo.com');
end;    procedure TForm1.Button2Click(Sender: TObject);
begin
  if webComplete then
    WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(0,65536);
end;    procedure TForm1.FormCreate(Sender: TObject);
begin
  webComplete := False;
end;    procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
begin
  webComplete := True;
end;    end.

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman