surf00.cpp

来自「C++Builder编程实例详解,用具体的例子阐明C++的一些基本操作,所有程序」· C++ 代码 · 共 43 行

//---------------------------------------------------------------------------
#include <vcl\vcl.h>
#pragma hdrstop

#include "Surf00.h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::htBrowserBeginRetrieval(TObject *Sender)
{
Cursor=(TCursor)crHourGlass;
if (cbURL->Items->IndexOf(htBrowser->URL)==-1){
  cbURL->Items->Add(htBrowser->URL);
  cbURL->Text=htBrowser->URL;
  cbURL->SelectAll();
  tcURL->Tabs->Add(htBrowser->URL);
  tcURL->TabIndex=tcURL->Tabs->Count-1;
  bbGo->Click();
}

}
//---------------------------------------------------------------------------
void __fastcall TForm1::htBrowserEndRetrieval(TObject *Sender)
{
Cursor=(TCursor)crDefault;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::bbGoClick(TObject *Sender)
{
htBrowser->RequestDoc(cbURL->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::bbHomeClick(TObject *Sender)
{
htBrowser->RequestDoc(HomePage);
}
//---------------------------------------------------------------------------