UM程式研究日誌

void __fastcall TForm1::Button1Click(TObject *Sender)    //上一頁
{
CppWebBrowser1->GoBack();
}

void __fastcall TForm1::Button3Click(TObject *Sender)    //下一頁
{
CppWebBrowser1->GoForward();        
}

void __fastcall TForm1::Button2Click(TObject *Sender)    //重新整理
{
CppWebBrowser1->Refresh();        
}

void __fastcall TForm1::Button4Click(TObject *Sender)    //首頁
{
CppWebBrowser1->GoHome();
}

void __fastcall TForm1::Button5Click(TObject *Sender)    //停止
{
CppWebBrowser1->Stop();
}

void __fastcall TForm1::Button6Click(TObject *Sender)//移至
{
  OleVariant   TargetFrameName,PostData,Heads,Flags;
  WideString   URL;
  TargetFrameName=AnsiString("");//指定Frame為空字符串時,則在當前Frame中打開網頁
  PostData   =   OleVariant(false);//不發送數據
  Heads   =AnsiString("");//Header信息為空
  Flags   =   OleVariant(0);//Flags設為0
  URL   =   ComboBoxEx1->Text;
  CppWebBrowser1->Navigate(URL,Flags,TargetFrameName,PostData,Heads);
}