您的位置: 旅游网 > 明星

Delphi中始終用WebBrowser

发布时间:2019-05-22 08:43:40

3 在剛才傳遞的WebBrowser的OnBeforeNavigate2事件中就可以獲得將要打開的Result := ve(eate(AStream),TRUE);if Assigned(Document) thenbeginppDisp:=plication;// 在WebBrowser2的OnBeforeNavigate2事件中:end;procedure NewWindow2(Sender: TObject; var ppDisp: IDispatch;ek(0, 0); const Text: WideString);function Loadfromstream(AStream:TStream):hresult;vigate (NewURL);end;begin其中的NewURL是你在頁中點擊的鏈接,它的值在以下事件中獲得:while readystate READYSTATE_COMPLETE do ocessMessages;// 在WebBrowser1的OnNewWindow2事件中:procedure bBrowser1NewWindow2(Sender: TObject;beginvar Cancel: WordBool);end;if not Assigned(Document) then2 通過傳遞一個WebBrowser的控制借口給ppDisp可以讓新頁在指定的Wb中瀏覽beginCancel := True;beginURL了!sible:=true;可以這樣,窗體中放置兩個PANEL,其中PANEL1中放WebBrowser1,PANEL2中放WebBrowser2,PANEL1和PANEL2、WebBrowser1和WebBrowser2的LEFT,TOP等所有屬性設為一樣。PANEL2的VISIBLE設為FALSE。然后添加代碼以下即可:procedure bBrowser1NewWindow2(Sender: TObject;IpStream := Document as IPersistStreamInit;end;end;Headers: OleVariant; var Cancel: WordBool);procedure bBrowser2BeforeNavigate2(Sender: TObject;end;NewURL :=text;procedure bBrowser2NewWindow2(Sender: TObject;來自:阿狗, 時間::41:23, ID:beginbeginwhile ReadyState READYSTATE_COMPLETE doppDisp := plication; // 新的窗口先指向WebBrowser2var1 NewWindow2的在接口中定義的原形:Cancel:=true;var ppDisp: IDispatch; var Cancel: WordBool);sible:=ocessMessages;beginend;end;sible:=false;end;要在同一個WebBrowser里顯示,可以這樣:navigate2('about:blank',0,0,0,0);beginbeginbeginppDisp:=ntrolInterface;sible:=false;const pDisp: IDispatch; var URL, Flags, TargetFrameName,PostData,var ppDisp: IDispatch; var Cancel: WordBool);procedure bBrowser1StatusTextChange(Sender: TObject;這個問題也曾困擾過我一段時間啊!呵呵…… var ppDisp: IDispatch; var Cancel:WordBool);vigate(string(URL)); // 再指回WebBrowser1給你一個解決辦法,肯定能成功!再放一個小的WebBrowser2,設置它在WebBrowser1下面(設置Visible為False好象無效),IpStream: IPersistStreamInit;procedure bBrowser1NewWindow2(Sender: TObject;with browser1 doend else Result := S_FALSE;ppDisp:=plication;with browser1 dofunction SaveToStream(AStream: TStream): HRESULT;end;beginvar ppDisp: IDispatch; var Cancel: WordBool);Result := (Document asIPersistStreamInit).Load(eate(AStream));

这样,当你点击页中的连接时,就在本窗口中打开.NewURL应定义为全局变量.实现不了找我哦!本文来自CSDN博客,转载请标明出处:Delphi中始终用WebBrowser打开页Delphi :38:17 浏览172评论0 字号:大中小

我只回答第一个问题,,看你给多少分:

李晨求婚范爷独特求婚方式令女神范冰冰感动张雪迎现身萌宠小大人曾舜晞撩妹新技能献殷完美无缺贵翼是好人吗贵翼真实身份是什么

民革江西省委会为地震灾区募捐230余万元
两名女大学生救下跳河轻生小伙 事后拥抱不停安慰他
或搭载1.4T发动机 疑似宝沃BX3谍照曝光
猜你会喜欢的
猜你会喜欢的