在练习写个类似于IE浏览器类的工具,但不知IE工具栏里的后退、前进如何判断,WebBrowser有这个判断吗?应该如何判断呢?

解决方案 »

  1.   

    判断工具栏里的后退前进?不好意思,不太明白你说的是什么意思。是不是以下内容呢?(如果在下理解错了就不好意思了哈)
    GoBack:方法,后退到上一个页面。
    GoForward:方法,前进到下一个页面。
    GoHome:方法,调用默认的主页页面,
    该页面在IE的选项中设定。
    GoSearch:方法,调用默认的搜索页面,
    该页面在IE的选项中设定。
    Navigate(const URL: WideString; 
    var Flags, TargetFrameName, PostData, 
    Headers: OleVariant):方法,
    调用指定页面,具体参数如下:
    URL:指定页面的URL。
    TargetFrameName:WideString,
    打开页面所在的Frame,为空字符串时在当前的
    Frame中打开;TargetFrameName
    指定的Frame存在时在Frame中打开;
    TargetFrameName指定的Frame
    不存在时则新建一个窗口打开,此时就相当
    于调用外部的IE浏览器了。
    PostData:boolean,是否允许发送数据。
    Headers:WideString,
    要发送的URL请求的头部数据。
    Refresh:方法,刷新当前页面。
    Stop:方法,停止调用或打开当前页面。
    LocationName:属性(WideString),当前位置的名称。
    LocationURL:属性(WideString),当前位置的URL。
    Busy: 属性(Boolean),是否正忙。
    Visible: 属性(Boolean),浏览器窗口是否可见。
    不知以上是不是你想问的内容,但我始终觉得好像有些回答非所问的样子哈。不过我的确不是很理解你的意思,希望有用吧。
      

  2.   

    hehe!我记得好象前几期的《电脑报》上有个关于浏览器的例子,讲的很详细你能找来就看看啊。  IE工具栏里的后退、前进如何判断:我记得报上写的很简单的,就是一句代码罢了!  好象delphi自身带的就有这方面的例子你也可以找一找!
      

  3.   

    WebBrowser1.forward
    WebBrowser1.goback
      

  4.   

    procedure TForm1.btnGoBackClick(Sender: TObject);
    begin
            try
                    WB1.GoBack ;
            except
                    showmessage('Kao,到顶了你还要往哪退!');
            end;
    end;procedure TForm1.btnGoformwardClick(Sender: TObject);
    begin
            try
                    WB1.GoForward;
            except
                    showmessage('Kao,这已经是最前面,还能往哪去!');
            end;
    end;procedure TForm1.Button3Click(Sender: TObject);
    begin
            WB1.Navigate(edit1.Text );
    end;end.