看 delphi Demo呀,  webbrowser程序。
工程路径:  demo\coolstuf\webbrower

解决方案 »

  1.   

    TechnoFantasy 能不能具体一点!
      

  2.   

    TO mutan:
            给分给钱都行!
      

  3.   

    我又忍不住上   看这个:
    unit main; interface uses 
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
      StdCtrls, OleCtrls, SHDocVw, mshtml; type 
      TForm1 = class(TForm) 
        WebBrowser1: TWebBrowser; 
        Button1: TButton; 
        Button2: TButton; 
        Edit1: TEdit; 
        procedure Button1Click(Sender: TObject); 
        procedure Button2Click(Sender: TObject); 
      private 
        { Private declarations } 
      public 
        { Public declarations } 
      end; var 
      Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); 
    var 
       urlnavigate : OleVariant; 
    begin 
       urlnavigate := Edit1.text; 
       WebBrowser1.Navigate2(urlnavigate); 
    end; procedure TForm1.Button2Click(Sender: TObject); 
    var 
       Document     : IHtmlDocument2; 
       Link        : IHTMLElement; 
       StrLinks     : string; 
       i            : integer; begin 
       Document := WebBrowser1.Document as IHTMlDocument2;    for i := 0 to Document.Links.Length - 1 do 
       begin 
            Link := Document.Links.Item(i, 0) as IHTMLElement; 
            StrLinks := Link.ToString + #13#10; 
            ShowMessage(StrLinks); 
       end; 
    end; end. 
    --- 
      

  4.   

    我的意思是:如像超星一样
    MDI,任意切换...与主菜单的整合!
    我现在的一个实际问题是:
    由于我的MainMenu是用 ControlBar+ToolBar,
    当我的浏览器(子窗体)最大化之后,其本身的
    最小化,最大化,关闭按钮不见了!
    浏览器(子窗体)也是用ControlBar+ToolBar做的!
      

  5.   

    用IE控件或winsock控件不就行了
      

  6.   

    提前!
    TO peasnat:
      winsock???
    TO All:
       没虾?!
      

  7.   

    提前!
    TO peasnat:
      winsock???
    TO All:
      没虾?!   
      

  8.   

    Delphi 5 自带的 TWebBrowse 是基于 IE4 的内核的!
    现在要使用 IE5 的内核!
      

  9.   

    少来了,吃力不讨好,看看OICQ自带的那个浏览器,把我烦死了,有什么是非得自己的浏览器才做得到的?