关于DELPHI制作浏览器问题~~在线等待

[Hovers]

请问各位兄弟DELPHI自带的一些程序里面有没有浏览器程序，或是其他什么地方可以找到这样的源程序

[cronuz]

要什么浏览器？　IE浏览器? 文件浏览器？

[angelface]

应该是http游览器吧＠

　　在internet页上找到webbrowser，在看一下它的帮助，　一个简单的就哦了，

[lihaiyuan]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, StdCtrls, ComCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
WebBrowser1: TWebBrowser;
StatusBar1: TStatusBar;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure WebBrowser1DownloadBegin(Sender: TObject);
procedure WebBrowser1DownloadComplete(Sender: TObject);
procedure Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Flags:olevariant;
url:widestring;
begin
url:=widestring(edit1.Text);
webbrowser1.Navigate(url,flags,flags,flags);
edit1.Enabled:=false;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
form1.WebBrowser1.Stop;
end;

procedure TForm1.WebBrowser1DownloadBegin(Sender: TObject);
begin
form1.StatusBar1.Panels.Items[0].Text:='正在打开:'+edit1.Text;
end;

procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
begin
form1.StatusBar1.Panels.Items[0].Text:='下载:'+edit1.Text+'完成';
edit1.Enabled:=true;
end;

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then
Button1Click(nil);
end;

end.