Teach Yourself Borland C++ in 14 Days - portal

480 Day 13
Listing 13.1. continued
11: #include
12: #include
13: #include
14: //----------------------------------------------------------------
15: class TfmBrowser : public TForm
16: {
17: __published: // IDE-managed Components
18: TTabControl *tcURL;
19: TPanel *paHeader;
20: TComboBox *cbURL;
21: TBitBtn *bbGo;
22: THTML *htBrowser;
23: TBitBtn *bbHome;
24: void __fastcall bbGoClick(TObject *Sender);
25: void __fastcall htBrowserBeginRetrieval(TObject *Sender);
26: void __fastcall tcURLChange(TObject *Sender);
27: void __fastcall bbHomeClick(TObject *Sender);
28: void __fastcall htBrowserEndRetrieval(TObject *Sender);
29: private: // User declarations
30: public: // User declarations
31: virtual __fastcall TfmBrowser(TComponent* Owner);
32: };
33: //----------------------------------------------------------------
34: extern TfmBrowser *fmBrowser;
35: //----------------------------------------------------------------
36: #endif
Listing 13.2. The C++ source file of your Web browser’s main form,
Surf00.
1: //----------------------------------------------------------------
2: #include
3: #pragma hdrstop
4:
5: #include “Surf00.h”
6: //----------------------------------------------------------------
7: #pragma resource “*.dfm”
8: TfmBrowser *fmBrowser;
9: String HomePage = “http://www.borland.com”;
10:
11: //----------------------------------------------------------------
12: __fastcall TfmBrowser::TfmBrowser(TComponent* Owner)
13: : TForm(Owner)
14: {
15: }
16: //----------------------------------------------------------------
17: void __fastcall TfmBrowser::bbGoClick(TObject *Sender)
18: {
19: htBrowser->RequestDoc(cbURL->Text);