Delphi中代替WebBrowser控件的第三方控件
原文地址:http://blog.csdn.net/nanfeiyannan/article/details/7341492
这几天,接触到在delphi中内嵌网页,用delphi7自带的TWebBrowser控件,显示的内容与本机IE8显示的不一样,但是跟装IE8之前的IE6显示一个效果。现在赶脚是下面两个原因中的一个:
1.Navigate这个方法用的有点问题,里面的参数不同及Navigate2等不同方法,调用的IE内核版本不同
2.这个自带的控件用着不爽,直接换一个第三方控件
对于第一点,找了半天冒发现什么,赶紧转换思路,于是找到了EmbeddedWB这个第三方控件。。。
http://topic.csdn.net/u/20090527/09/58387179-3fe8-49d7-9d95-9d9c00767e65.html
- procedure OpenInIE(aURL: string);
- var IE: Variant;
- begin
- IE := CreateOleObject(‘InternetExplorer.Application‘);
- IE.Visible := true; //可见
- IE.left := 0;
- IE.top := 0;
- IE.height := 1050; //高度
- IE.width := 1680; //宽度
- IE.menubar := 0; //取消菜单栏
- IE.addressbar := 0; //取消地址栏
- IE.toolbar := 0; //取消工具栏
- IE.statusbar := 0; //取消状态栏
- IE.resizable := 0; //不允许用户改变窗口大小
- IE.Navigate(aURL);
- end;
- procedure TForm1.Button2Click(Sender: TObject);
- begin
- ShellExecute(Handle, ‘open‘, ‘IExplore.EXE‘, ‘http://www.baidu.com‘, nil, SW_SHOWNORMAL);
- end;
6.
- procedure TIEShowFrm.FormCreate(Sender: TObject);
- var
- Flags: OLEVariant;
- begin
- //WebBrowser1.Navigate(WideString(‘http://www.baidu.com‘), Flags, Flags, Flags, Flags);
- WebBrowser1.Navigate(‘http://www.baidu.com‘);
- end;
PS:如果再有什么突破了,就再来补充吧。。。
郑重声明:本站内容如果来自互联网及其他传播媒体,其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享,并不代表本站赞同其观点和对其真实性负责,也不构成任何其他建议。