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

Hovers 2004-08-26 11:11:25
请问各位兄弟DELPHI自带的一些程序里面有没有浏览器程序,或是其他什么地方可以找到这样的源程序
...全文
174 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
lihaiyuan 2004-08-26
  • 打赏
  • 举报
回复
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.
angelface 2004-08-26
  • 打赏
  • 举报
回复
应该是http游览器吧@

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

cronuz 2004-08-26
  • 打赏
  • 举报
回复
要什么浏览器? IE浏览器? 文件浏览器?

1,183

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧