浏览器X 的设计 32 附录六 部分源代码 1、浏览 完成浏览器必需的浏览功能。 //--------------------------------------------------------------------------- #include #pragma hdrstop #include "CWin.h" #include //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "SHDocVw_OCX" #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { //设置浏览器起始页面 //空白页 TVariant *starturl=new TVariant(CppWebBrowser1->Path+"blank") ; CppWebBrowser1->Navigate2(starturl) ; } //--------------------------------------------------------------------------- 浏览器X 的设计 33 void __fastcall TForm1::CppWebBrowser1BeforeNavigate2(TObject *Sender, LPDISPATCH pDisp, TVariant *URL, TVariant *Flags, TVariant *TargetFrameName, TVariant *PostData, TVariant *Headers, TOLEBOOL *Cancel) { //修改地址栏为当前页面网址 AddrBar->Text = *URL ; } //--------------------------------------------------------------------------- void __fastcall TForm1::StartBrowseClick(TObject *Sender) { //按钮 go ；浏览 //鼠标点击按钮，开始浏览地址栏中请求网页 //默认，回车键 TVariant *url=new TVariant(AddrBar->Text); CppWebBrowser1->Navigate2(url) ; } //--------------------------------------------------------------------------- void __fastcall TForm1::stopClick(TObject *Sender) { //按钮 stop ；停止 //鼠标点击按钮，停止当前浏览请求 CppWebBrowser1->Stop(); } //--------------------------------------------------------------------------- void __fastcall TForm1::refreshClick(TObject *Sender) { //按钮 refresh ；刷新 //鼠标点击按钮，刷新当前显示页面 CppWebBrowser1->Refresh(); } //--------------------------------------------------------------------------- 浏览器X 的设计 34 void __fastcall TForm1::backClick(TObjec...
