如腾讯的在新窗口打开，如何实现(15分)

  • 主题发起人 主题发起人 运通
  • 开始时间 开始时间
运

运通

Unregistered / Unconfirmed
GUEST, unregistred user!
即，点所有的连接都是在新窗口打开。
 
procedure OpenInternetExplorer(sURL : string);//sURL参数为你要浏览的网址
const
csOLEObjName = 'InternetExplorer.Application';
var
IE : Variant;
WinHandle : HWnd;
begin
if VarIsEmpty(IE) then
begin
IE := CreateOleObject(csOLEObjName);
IE.Visible := true;
IE.Navigate(sURL);
end
else
begin
WinHandle := FindWindow('IEFrame', nil);
if WinHandle <> 0 then
begin
IE.Navigate(sURL);
SetForegroundWindow(WinHandle);
end
else
begin
// handle error ...
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenInternetExplorer('www.sina.com.cn');
end;
 
ShellExecute(handle,nil,PChar('http://www.sina.com.cn'),nil,nil,SW_SHOW)
 
你们没有理解我的意思，我是说做一个浏览器，在TWEBBROWSER怎么样实现和腾讯浏览器
那样相似的功能。
 
可以用PageControl，动态创建TabSheet。 //费话
 
楼上的，我知道
我是说想了解，如果网页中是在本窗口打开的也会在新窗口打开。
 
使用 EmbeddedWB

procedure TForm1.EmbeddedWB1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
NewApp: TForm1;
begin
NewApp := TForm1.Create(Owner);
NewApp.Visible := true;
ppdisp := NewApp.EmbeddedWB1.Application_;
end;
 
楼上的：
那用twebbrowser怎样实现呢？
 
EmbeddedWB不能在DH6上用
 
DH6是什么东东？如果是D6的话，可以用。
 
接受答案了.
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
H
如何能保证只用IE浏览器打开连接地址？？(50分)
回复
4
查看
206
heming
H
S
shellexecute的应用请教 (50分)
回复
8
查看
113
wwwvw
W
F
如何在Webbrowser浏览网页时，让所有的连接都在Webbrowser内打开！(100分)
回复
5
查看
210
foxczf
F
地
如何在子窗口传递值(50分)
回复
10
查看
201
地球
地
后退
顶部