关于 DELPHI 的 WebBrowser 组件的问题 我在一个DELPHI工程里设置两个 webbrowser 我想通过点击 左边的 webbrowser 使右边的 webbrowser 的网页内容随之改变,也就是说 左边点击的URL,右边navugate这个URL都想了一上午了, 特别着急, 在线等! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 webbrowser2.Navigate(webbrowser1.LocationURL) 这个是在DELPHI里调用的方法我想在HTML里通过写JS 还调用 webbrowser2.Navigate(webbrowser1.LocationURL) 这个方法,怎么实现! 多谢 xiaxia421 的好心帮助. 不过我感觉有问题 因为 在左边的 webbrowser的URL 内容是邮很多连接结成的.触发的是哪一个连接呢.而不能是 webbrowser1.LocationURL 吧其实我想做的就是用DELPHI 做一个类似于HTML的FRAME的功能. 在webbrowser1的DocumentComplete事件中webbrowser2.Navigate(webbrowser1.LocationURL)不行吗?LocationURL本来就是当前打开的URL. 在WebBrowser1BeforeNavigate2事件里加WebBrowser2.Navigate(URL); 因为 在左边的 webbrowser的URL 内容是邮很多连接结成的. 比如webbrowser1的内容是 left.html<a href='www.163.com'>a</a><a href='www.263.com'>b</a><a href='www.sina.com.cn'>c</a>可以通过用户点webbrowser1的a或b或c 在webbrowser2里显示 www.163.com或www.263.com或www.sina.com.cn 的内容不知道我现在说明白了没有 给你提示了啊在WebBrowser1BeforeNavigate2事件里加 WebBrowser2.Navigate(URL);procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject; const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cancel: WordBool);beginif CheckBox1.Checked thenbegin WebBrowser2.Navigate(URL); //拦截跳转的链接,用WebBrowser2打开 Cancel := true;end;end;具体代码:http://ys-c.ys168.com/?Web.rar_67z81bkksp0c0bt0bktnr0btlnnl0bp0c0cnrll1bu14z97f14z 同意 edongxu 一介书生,半个农民 的观点。 CheckBox1.Checked 这句话是什么意思呢,不好意思,小弟是初学者, 多谢各位的好心帮助. ado连接的问题 请问下Pascal语言中二维数组A[3,4],是3表示行数还是4表示行数 问大家一个小问题,小弟解决不了,急。 在delphi4中如何设置环境变量 我们齐来抵制日本货! ShellTreeView 与软驱 高手帮个忙! 简单问题:如何在对话框关闭之前进行有效性检查。立即揭帖 诚聘程序员!!! 为什么我一改了application的图标,运行时就出现那个显示cpu信息 的窗体? 关于输入的问题 如何在SQL查询结果中动态加入自动编号 FastReport 打印问题
LocationURL本来就是当前打开的URL.
WebBrowser2.Navigate(URL);
<a href='www.263.com'>b</a>
<a href='www.sina.com.cn'>c</a>可以通过用户点webbrowser1的a或b或c 在webbrowser2里显示 www.163.com或www.263.com或www.sina.com.cn 的内容不知道我现在说明白了没有
在WebBrowser1BeforeNavigate2事件里加
WebBrowser2.Navigate(URL);
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
if CheckBox1.Checked then
begin
WebBrowser2.Navigate(URL); //拦截跳转的链接,用WebBrowser2打开
Cancel := true;
end;
end;具体代码:http://ys-c.ys168.com/?Web.rar_67z81bkksp0c0bt0bktnr0btlnnl0bp0c0cnrll1bu14z97f14z