做个简单的IE浏览器（送100分）

Question

请问怎么做一个简单的想IE浏览器一样的 可以浏览网页 关键是 比如一网页要输入用户名和密码 输入玩会跳转到一个新的页面 要提示用户 是否接受跳转

Answer 1

webbrowser,调用你写好的网页或控制你网页中的按钮等

Answer 2

WebBrowser1.Navigate();浏览网页
WebBrowser1.OnNewWindow2；打开新窗口之前调用。
WebBrowser1.OnBeforeNavigate2；打开新页面之前调用。

Answer 3

webbrowser控件可以实现，例子可以在网上面找找，或者到盒子里面去看看。

Answer 4

我想问2个问题
1：Edit1.text 始终显示当前网页的地址
2：如果在网页中登陆后会有新窗口 那提示 是否进入新窗口

Answer 5

Delphi Internet 控件栏里的 WebBrowser 控件WebBrowser1.Navigate('http://www.baidu.com/') ;  //浏览在 OnNewWindow2 事件里面拦截新窗口问题,设置 Cancel 属性
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
  if MessageDlg('是否允许弹出窗体?', mtError, [mbyes, mbno], 0) = mrno then
    Cancel := true;
end;
在 NavigateComplete2 事件中显示URL地址procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  Edit1.Text := VarToStr(URL);
end;