点击网页连接,打开了本程序的一个过程窗口. 这用Delphi怎么实现？

Question

带红星的高手们：  能回答吗？  这个问题用 VB 可以实现的。 但是用 Delphi 怎么实现呢？

Answer 1

神气吗?其实很简单!WebBrowse有OnNewWindow2事件!Create一个新的WebBrower,然后ppDisp:=NewWebBrowser.DefaultInterface;谁来回答我的问题啊(也是多窗口浏览器的编写问题)?http://www.csdn.net/expert/topic/759/759847.xml

Answer 2

神奇吗?其实很简单!WebBrowse有OnNewWindow2事件!Create一个新的WebBrower,然后ppDisp:=NewWebBrowser.DefaultInterface;谁来回答我的问题啊(也是多窗口浏览器的编写问题)?http://www.csdn.net/expert/topic/759/759847.xml

Answer 3

ehom(？！) 同志：  您有没有具体的代码啊？  谢谢！！！

Answer 4

procedure TMain.WebBrowserNewWindow2(Sender: TObject; var ppDisp: system.IDispatch; var Cancel: WordBool);
begin
  WebBrowser:=TWebBrowser.Create(self);
  WebBrowser.ParentWindow:=Main.Handle;
  WebBrowser.OnNewWindow2:=self.WebBrowserNewWindow2;
  WebBrowser.Resizable:=False;
  WebBrowser.Align:=alClient;
  ppDisp := WebBrowser.DefaultInterface;
end;

Answer 5

啊！  大虾，谢谢！！！
可是我怎么判断是按了 webrowser1 中的哪个  连接  呢？

Answer 6

ShellExecute(Handle,nil,'http://netmax.myrice.com',nil,nil,SW_ShowNormal);

Answer 7

不用判断,新开的的WebBrower会自动判断!
ppDisp := NewWebBrowser.DefaultInterface;就是让新网页在NewWebBrowser中打开!

Answer 8

哥们：是这样的：  点 WebBrowser 上的一个链接， 执行本程序中的过程 MyProcProcedure MyProc()
begin
  showmessage('OK：'+[链接的名称]);
end;

Answer 9

当鼠标放在链接上时,OnStatusTextChange事件中的Text代表Url!在OnStatusTextChange事件中给一变量赋值!IHTMLElement接口提供了OnClick!

Answer 10

ehom(？！) 谢谢！  我试试吧。